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