Replacing a word in a folder with subfolders and files.

I made a sample script to do it. This script will take all files in /home/mamon and replace all instances of rice with fish ( even \'riceman\' with \'fishman\' ). Also, it will take all files in all subdirectories to /home/mamon/ and replace rice with fish.
If you want only to take files names filx,filxx etc, use grep in the \'open\' statements. If you want to change when \'rice\' should be replaced with \'fish\', change the regexp.

$dir = \'C:\\home\\mamon\';
opendir( DIR, $dir ) or die $!;
my @files = readdir( DIR );
closedir( DIR );
{ undef($/);
        foreach my $file(@files){
          if( opendir( DIR, \"$dir\\\\$file\" ) ){
              @subfiles = readdir( DIR );
              foreach my $subfile(@subfiles){
                checkFile( \"$dir\\\\$file\\\\$subfile\" );   
              }
            closedir( DIR );
          }
          else{
            checkFile( \"$dir\\\\$file\" );
          }
  }
}
sub checkFile(){
    my $file = shift;
  if( open( INFILE, $file ) ){
      my $fileContent = <INFILE>;
      $fileContent =~ s/rice/fish/ig;
      close(INFILE);
      open( OUTFILE, \">$file\" );             
        print OUTFILE $fileContent;
      close( OUTFILE );
  }   
}

This looks beautiful, I will test and comeback to you. I want to thank you very much for your time and help.

Sorry it did not work.

did not work

closing case

closed