Select Code to Download

#!perl -w

...
01-html02.html
01-htm23-43.htm
01-file-01.html

++$parts{"number"}->[$i];
$filename = join('',
...
                   . $parts{"number"}->[$_] }                  
                               0..@{$parts{"number"}}-1)        
            . $parts{"suffix"};