$ grep "mailto" pm.txt | wc
      2       2      65
$ grep "^#" pm.txt | wc
     50      50     367
$ wc out1.txt
    333     333   18647 out1.txt
$ wc pm.txt
    385     385   18779 pm.txt

##</code><code>##

#!/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;

##</code><code>##

#!/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;