use File::Basename;

my @suffix = qw(txt html foobar);
my $string = '/path/to/foo.bar.foobar';

my ($file,$path,$ext) = fileparse($string,@suffix);
[download]

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)