use Regexp::List qw( );
my $re = Regexp::List->new()->list2re( 250..730 );

##</code><code>##

use 5.010; # Trie alternations
my ($re) = map qr/$_/,
           join '|',
          #map quotemeta,  # Not needed this time.
           250..730;