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