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