$ perl -e 'while (<STDIN>) { print }' < XXX
qwe
rty