my ($base, $ext) = split '.', $filename, 2;

##</code><code>##

my ($base, $ext) = map { reverse } split '.', reverse($filename), 2;