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