#!/usr/bin/perl
$cnt = 0;

print "Search for:\n";
#$string = <STDIN>;
#chop $string;

print "Replace with:\n";
#$string2 = <STDIN>;
#chop $string2;

#COM

#$string1="finance_new";
#$string1a="finance";

$string1="<!-- #Include file=\"\.\.\/includes\/eng_top\.inc\" -->";
$string1a="<!--#include virtual=\"\.\.\/includes\/eng_top\.inc\"-->";

print "Replacing files: ";

open(FIND,"find . -print |")||die "couldn't\n";

FILE:

while($filename = <FIND>){
 chop $filename;
 next FILE unless -T $filename || $filename eq "replace.pl";
 if ($filename ne "./replace.pl")
 {
print $filename."\n"; 
 undef $/;
 open(TEXTFILE,$filename);
 $body = <TEXTFILE>;
 close(TEXTFILE);
 $/ = "\n";
 $body =~ s/$string1/$string1a/g;
# $body =~ s/$string2/$string2a/g;
# $body =~ s/$string3/$string3a/g;

 open(TEXTFILE,">$filename");
 print TEXTFILE $body;
 close(TEXTFILE);
 print ".";
}

}