$cmd = q[ 
perl -MIO::File -we "exit( do{ local $/; my $io=new IO::File; $io->open( $ARGV[0] ); <$io> } =~ /$ARGV[1]/ ) " ];
];

##</code><code>##

undef $/;
my $read = new IO::File;
if($read->open("< $file")) {
if(<$read> =~ /$searchString/g) {

##</code><code>##

if ( system( $cmd, $file, $searchstring) ) {