%bullets = ('*'=>'foo', '+'=>'bar', '@'=>'qux'); #Original, which as ikegami points out, doesn't quite work #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]/;