$ export PS2=""; perl -E '$x = `cat <<FOO
hello
world
FOO`; print uc $x'
HELLO
WORLD
$