Select Code to Download

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

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

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