%regex = map { $_ => qr/$_/ } @words;