#!/usr/bin/perl -w
$url="www.page.com/test/index.html";
$base="http://www.page.com/test/";
open(INFILE,"<pm.txt") or die;
@search = <INFILE>;
chomp for @search;
foreach(@search)
{
    next if /^#/;
    next if /^mailto/i;
    if ( $_ =~ m|^http://|i ) {
        push(@search_ready, "$_");
    } else {
        push(@search_ready, "$base$_");
    }
}
print "$_\n" for @search_ready;