HTML::Parser ( http://search.cpan.org/~gaas/HTML-Parser/ )
http://homepage3.nifty.com/hippo2000/perltips/html/LinkExtor.htm
http://homepage3.nifty.com/hippo2000/perltips/html/Parser.htm
http://www.geocities.co.jp/SiliconValley-Sunnyvale/6128/perl/htmlpaser.html
#!/usr/local/bin/perl $|=1; use strict; use lib qw(./extlib); my $start_uri='http://www.yahoo.co.jp/'; my $base_uri=$start_uri; require HTML::LinkExtor; my $p = HTML::LinkExtor->new(?&cb, $base_uri); sub cb { my($tag, %links) = @_; print "[tag:$tag] [link:@{[%links]}]?n"; } my $data=`curl $start_uri`; $p->parse($data); $p->eof