use File::Basename qw(fileparse);
my $basename = fileparse 'foo/table.xls', qr/\.[^.]*/;
__END__
table