if($filecontents =~ /\Q$word/smg) {