$ perl -e'$s=<STDIN>; print "$ARGV[0]\n$s"' foo\ bar
moo\ mar
foo bar
moo\ mar