my $bullet = sprintf qr/[%s]/, quotemeta join '', keys %bullets;