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