#!usr/bin/perl
#simpleparse.pl
use strict;
use warnings;
use HTML::TreeBuilder;
use Data::Dumper;
my $html = <<'END';
END
my $p=HTML::TreeBuilder->new_from_content($html);
my @urls=$p->find('_tag'=>'a');
foreach (@urls){
if ($_->as_text=~/^Completed/){
print $_->attr('href')."\n";
}
}
#print Dumper($p);