Select Code to Download

use English qw( -no_match_vars );
...
...
}
...
    my ($prefix, $number) = parse_bates_number($bates_number);

    no strict 'refs';

    return map  { $$_ }
           grep { defined $LAST_MATCH_START[$_] }
                ( 1 ..  $#LAST_MATCH_START );

#!/usr/bin/perl
#
...
00000123456
99999999999
BOGUS99

XYZ 123 00000123     XYZ 123             123
XYZ 123 00000456     XYZ 123             456
...
00000123456                           123456
99999999999                      99999999999
Invalid Bates number: BOGUS99