>>367
Perlでド適当に書くとこんな感じ．

my ($href, $title);
while ($str =~ m{<a\s+(?:href\s*=\s*(["'])(.+?)\1|.)+?>(.+?)</a>}gis) {
    ($href, $title) = ($2, $3);
    $href or next;
    print  "href: $href\ntitle: $3\n\n";
}