$file_name =~ s/.*[\/\\](.*)/$1/;