perl -nle "print bar($_) unless foo($_)"

##</code><code>##

perl -ple "next if foo($_); $_=bar($_)"