use Regexp::Assemble;

$re = Regexp::Assemble
          ->new()
          ->add( 250..730 )
          ->re();