HTML::LinkExtor, links(), parse_file()

#!/usr/bin/perl use strict; use HTML::LinkExtor; my $p = new HTML::LinkExtor; $p->parse_file(*DATA); foreach my $links ($p->links()) {    map {print "$_ "} @{$links};    print "\n"; } exit 0;