while($Html =~ m{<a/b([^>]+)>(.*?)</a>}ig)
{
        my $Guts = $1;
        my $Link = $2;

        if($Guts =~ m{
                /b HREF         # "href" 속성
                /s* = /s*       # "="의 앞
                (?:             # 값은
                  "([^"]*)"     #   큰 따옴표로 감싼 문자열
                  |             # 또는
                  '([^']*)'     #   작은따옴표로 감싼 문자열
                  |             # 또는
                  ([^'">/s]+)   # "기타 문자"
                )
                }xi)
        {
        my $Url = $+;
        print $Url with link text: $Link\n";
        }
}