[A000,A123-A456,A999-B000,B789-B888]

##</code><code>##

my $regex = join '|', ( 'A000','A123'..'A456','A999'..'B000','B789'..'B888' );
if ( $x =~ /^$regex$/o ) {...}