or download this
%bullets = ('*'=>'foo', '+'=>'bar', '@'=>'qux');
...
#my $bullet= sprintf(qr/[%s]/, join('', keys %bullets));
#Alternate form, that I was trying to make more scrutable, with added
+\Q
my $bullet= qr/[\Q@{[join '', keys %bullets]}\E]/;