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