#!/usr/local/bin/perl5

sub remove_url
{

open(IN, $_[0]) || die "can not  open $_[0] :";
$flag= 0;

while (<IN>)
 { $l = $_;
#  print "input=== ", $l, " ===input\n";
    if ( $l =~ m#(.*)<a href=(.*)">(.*)#ig )
     { $l = $1 . "<!-- <a href=". $2 . "\"> --> " . $3 . "\n";
#       $flag = 1;
     }
#   if ($flag && $l =~ m#(.*)</a>(.*)#i )
#     { print $1, "</a> --> ", $2 . "\n"; 
#        $flag= 0;
#     }
#   else { print $l; }
 print $l;
 }
}

sub print_url
{
open(IN, $_[0]) || die "can not  open $_[0] :";
 
while (<IN>)
 { $l =  $_;
#  print "input=== ", $l, " ===input\n";
  
  if ( $l =~ m#<a href="(.*)">#gi )
    {print $1, "\n";
    }
 }
}

#
# main ...
# 
# (@progs = @ARGV) || die "Err, a program name(s) would be useful ...\n";
#&print_url("test.html");
&remove_url("moreinfo.html");