($file_name) = $path =~ m#([^\\/]*)$#;