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