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