note
ikegami
Safer (allows "<c>-</c>", for example):
<c>
my $bullet = sprintf qr/[%s]/, quotemeta join '', keys %bullets;
</c>
Alternative (shorter and returns a compiled regexp unlike the OP's and the above solutions):
<c>
my ($bullet) = map qr/[\Q$_\E]/, join '', keys %bullets;
</c>
788420
788420