my ($name, $ext) = $_ =~ m!\A(.*)\.([^.]+)\z!s;