Select Code to Download

my ($pfx, $num) =
    map substr($bates_number, $-[$_], $+[$_] - $-[$_]),
    grep defined $-[$_],
    1 .. $#+
;