use strict;
my $filename="camel.flea";
$filename=~s/\w+(\.\w+)$/$1/; # Warning: untested