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