$path =~ /^(\w):\\(.+?)\\?/; #### $path =~ /^(\w):\\([^\\]+)\\?/;