http://www.perlmonks.org?node_id=331920


in reply to positive regex for inverted match

/^((?!bar).)*$/s