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