in reply to positive regex for inverted match

/^(?!.*bar)/

In Section Seekers of Perl Wisdom