Select Code to Download

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

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