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