# Script name: srtiptag.pl
# Purpose: Strips html a-href tags from a document 
# Author: keyDemun
# http://c0depalace.netfirms.com/cgi-bin/cforum.pl

print "STRIPPING A-HREF TAGS. PLEASE WAIT..\n";
open(FO,"@ARGV[0]") or print "File not found!\n";
   while(<FO>) {
     $fc=$fc.$_;
   }
close(FO);

for($i=0;$i<length($fc);$i++) {
      $str=substr($fc,$i,1);
       if($str eq "<") {
             $st=substr($fc,$i,2); 
                 if($st eq "<a" || $st eq "<A") {
                       while(substr($fc,$i,1) ne ">") {
                             @hRef[$cnt]=@hRef[$cnt].substr($fc,$i,1); 
                             $i++;
                        }
	      @hRef[$cnt]=@hRef[$cnt]."></a>";
	   $cnt++;
                  }
        }
}

for($j=0;$j<$cnt;$j++) {
     print "\nHREF TAG-->[$j]-->@hRef[$j]\n\n";
}