#!/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)
{
 
    if ($_ !~ /^http:\/\//gi)
    {
        if ($_ !~ /^#/g)
        {
            if ($_ !~ /mailto:/gi)
            {
                my $force_url = "$base$_";
                push(@search_ready, "$force_url");
            }
        }
    }
    else
    {
        if ($_ =~ /^\#/g)
        {
            my $force_url = join("", $url, $_);
            #print "$force_url<br>";
            push(@search_ready, "$force_url");
        }
        else
        {
            #print "$_<br>";
            push(@search_ready, "$_");
        }
    }
}
print "$_\n" for @search_ready;