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