if(  $path =~ /^$str/i  ) {

##</code><code>##

if(  $path =~ /^\Q$str\E/i  ) {