recursive find and replace via the command line on Windows with Perl

#see docs at the bottom
use strict;
use warnings;
use Cwd;

use File::Find;

my $search_pattern=$ARGV[0] ;
my $replace_pattern =$ARGV[1];
my $file_pattern = $ARGV[2];

# Usage

(@ARGV == 3 ) || die ("Usage: FindAndReplace.pl findPattern ReplacePattern FilePattern");



find(\&d, cwd);

sub d {
my $file = $File::Find::name;
$file =~ s,/,\\,g;

return unless -f $file;
return unless $file =~ /$file_pattern/;
use Tie::File ;

tie my @file_array , 'Tie::File', $file , memory => 100_000_000 or die "I cannot find the $file" ;
foreach my $line (@file_array) #foreach line of the file
{
if ( $line =~ /$search_pattern/igo )
{
print "found " . $line ;
print "replacing \n" ;
}
$line =~ s/$search_pattern/$replace_pattern/igo ;

}
untie @file_array ;

}

#Purpose : performs recursive find and replace based on pеrl regexes from the current directory
#the search and replace is case insensitive