perl -e 'print "@ARGV\n"' `perl -e '@x=(1..5);print "@x\n"'`

##</code><code>##

 perl -e '@x=(1..5);print "@x"' | perl -e 'while (<>) {print};print"\n"'