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