print "$pattern not found in $file\n" if not $found;