foreach my $ref (@records){
 if($ref=~/URL/){
 print qq(<B>Webpage: </B><A HREF="$ref">$ref</A><br>);
 }
}