use strict;
use File::Basename;
my $filename="we_are_not_all_mammals.zoo";
my ($base, $directory, $ext)=fileparse($filename, '\.[\w]+$');
print $ext;