$ echo "Hello" | perl -E'while(<>){ print $_ }'
Hello
$ echo "Hello" | perl -E'<>; print $_'
$