my ($bullet) = map qr/[\Q$_\E]/, join '', keys %bullets;