Select Code to Download

#!/usr/bin/perl

...
ABC-M-0123456
ABCD-00654321
00000123456

    if ( $num !~ /^\d{1,7}$/ or
         $pfx !~ /^(?: ABC(?:D|-M)- |
...
        warn "Bad input at line $.\n";
        next;
    }