Help for this page

Select Code to Download

Select or download this
```
[A000,A123-A456,A999-B000,B789-B888]
```

Select or download this

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