Select Code to Download

#!/usr/bin/perl
use warnings;
...
    print "does not match\n";
  }
}

my %match;
my @num = ('A000','A123'..'A456','A999','B000','B789'..'B888');
...
    print "does not match\n";
  }
}