while (<DATA>) {
   chomp;
   print "$_ has no bar\n" if /^([^b]|b[^a]|ba[^r])+$/;
}

__DATA__
bar
foo
"bar" blah
baz "bar" blah
"test" blah
"test2"