or download this
>perl -e"print qq{abc\n\cZdef\n}" | c:\progs\perl560\bin\perl -e"while
+ (<>) { chomp; print qq{[$_]\n} }"
[abc]
...
>perl -e"print qq{abc\n\cZdef\n}" | c:\progs\perl5100\bin\perl -e"whil
+e (<>) { chomp; print qq{[$_]\n} }"
[abc]
[→def]