my ($pat) = map qr/$_/, join '|', #map quotemeta, 0..100;