356を修正してみた〜
perl -e "while(<STDIN>){ eval, print $/ }"

やっぱこうっしょ。