Help for this page
perl -MRegexp::List -le'print Regexp::List->new->list2re(0..100)'
my $re = join '|', 0..100;
my $re = join '|', map quotemeta, 0..100;