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

##</code><code>##

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