#!/usr/local/bin/perl5 -w

$filelist = "tablecontents.htm";
$newfile = "$filelist"."htm"."new";
open(IN, " $filelist");
open (OUT, " $newfile");	
while(<IN>) {

$line = $_;

#matches no matter how many ../s for a substitution

if($line =~ m/(<a href = ([\"..\/]*|[..\/]*))/i  ) {

$line =~ s/$1/<\!--#exec cgi=\"printpath.cgi\"-->/;

print "$line\n";

}

}