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

##</code><code>##

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