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";
        }
}