Very nice! I especially like the partial backreferences.

It is possible to dynamically build character classes the ordinary way:

foreach my $char (a..d) {
   print "bbb matches $char\n" if "bbb" =~ /[$char]/;
}
[download]

prints

bbb matches b
[download]

Thanks for expanding my horizons!

-Mark