use HTML::LinkExtor; my $p = HTML::LinkExtor->new; $p->marked_sections(1); $p->xml_mode(1); # DEPENDING ON INPUT my @links = $p->parse($html)->links; for my $link (@links) { my ($tag, %attrs) = @$link; print $attrs{href}, "\n"; }