in reply to positive regex for inverted match

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

In Section Seekers of Perl Wisdom