my @patterns = map qr/$_/, ('B.B', 'CB')x10;