#### #!/usr/bin/perl -wl use strict;use HTML::Parser;my $p=HTML::Parser->new(api_version =>3);$p->handler(start=>sub{print shift->{href}if shift eq 'a'}, 'tagname,attr');local $/;$p->parse(<>);#Just another URI finder