perl -MRegexp::List -le'print Regexp::List->new->list2re(0..100)'

##</code><code>##

my $re = join '|', 0..100;

##</code><code>##

my $re = join '|',
         map quotemeta,
         0..100;