// HTML í~C~\ê·¸ 매ì¹~X
<("[^"]*"|'[^']*'|[^'">])*>



// HTML ë§~Aí~A¬ ì¶~Tì¶~\
//
// ì~X~H) ... <a href="http://hyacinth.byus.net">hrp</a> ...
//     ì~W~Pì~D~\ href ë¶~@ë¶~D ì¶~Tì¶~\
//
// perl
while($Html =~ m{<a/b([^>]+)>(.*?)</a>}ig)
{
        my $Guts = $1;
        my $Link = $2;

        if($Guts =~ m{
                /b HREF         // "href" ì~F~Mì~D±
                /s* = /s*       // "="ì~]~X ì~U~^
                (?:             // ê°~Rì~]~@
                  "([^"]*)"     //   í~A° ë~T°ì~X´í~Q~\ë¡~\ ê°~Pì~K¼ 문ì~^~Pì~W´
                  |             // ë~X~Pë~J~T
                  '([^']*)'     //   ì~^~Qì~]~@ë~T°ì~X´í~Q~\ë¡~\ ê°~Pì~K¼ 문ì~^~Pì~W´
                  |             // ë~X~Pë~J~T
                  ([^'">/s]+)   // "기í~C~@ 문ì~^~P"
                )
                }xi)
        {
        my $Url = $+;
        print $Url with link text: $Link\n";
        }
}