use Regexp::List qw( ); my $pat = Regexp::List->new()->list2re( 0..100 );