http://www.perl.com/pub/2003/06/06/regexps.html