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