Help for this page
#!/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"; } }