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