perl -ne'if (s/.../.../) { print } else { print STDERR }' out.err >out.csv #### perl -ne'print { s/.../.../ ? STDOUT : STDERR } $_' out.err >out.csv #### perl -pe'select s/.../.../ ? STDOUT : STDERR' out.err >out.csv