perl -pe 'next if ...