正規表現道場@2ch

$body =~ s/(<[^>]*\bhref\s*=\s*["']?)([^\s"'>]*)/$1.&url_extract($2)/gie;
foreach (sort keys %URL) {print "$_\n";}
.
.
.
sub url_extract {
my($href) = shift;
$URL{$href}++;
return $href;
}

某スクリプトの一部を拝借
経験上，マッチするごとにサブルーチンに渡した方が早く感じます(何故？

http://schwarzekatz.hypermart.net/test.cgi

そーす
http://schwarzekatz.hypermart.net/test.txt