in reply to giving same name to two files
use File::Basename qw(fileparse); my $basename = fileparse 'foo/table.xls', qr/\.[^.]*/; __END__ table [download]