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