This fails if the file has no extension. Probably a simple test for a match failure would fix this:

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