In perl you can use http://search.cpan.org/~abigail/Regexp-Common-2010010201/lib...

The entire Regexp::Common namespace is basically a cookbook of the "right" way to use regular expressions. Worth stealing and porting to other languages...