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