#/usr/bin/perl -w
use LWP::UserAgent;
use HTML::TreeBuilder;
 
$|=1;

open (F, "<FILE.tmp.txt");
while (<F>){
    chop;
    my $url = $_;
    my ($href, $descr) = get_links($url);
    print $href." - ".$descr."\n";
}
close F;

sub get_links{
    my $url = shift;
    my $ua = LWP::UserAgent->new;
    my $res = $ua->get($url);
    my $parser = new HTML::TreeBuilder;
    $parser->parse($res->content);
    my @out;
    my @links = $parser->look_down('_tag' => 'a');
    foreach my $link (@links) {
        my %h;
        my $href = $link->attr('href');
        my $descr = $link->as_text();
        if ($href =~ m/$ARGV[0]/){
            return $href, $descr;
        }
    }
    $parser->delete();
    return @out;
}