my $content = <<HTML;
<a href="http://what.the.com">hello?</a>
<a href="http://is.dis.org">hello?</a>
<a href="http://your.net">hello?</a>
<a href="http://problem">hello?</a>
HTML


use HTML::TokeParser;
my $parser = HTML::TokeParser->new( \$content ); 
my @links;
while ( my $token = $parser->get_tag(qw( a img )) ) {
    my $link = $token->[1]{href} || $token->[1]{src} || next;
    push @links, $link;
}

print "@links";