perl -e"$s = 'fred'; print $s;"
fred

perl -e"print $s = 'fred';"
fred

perl -e"$,='-'; @a=(1,1,1,1,1,1,1,1,1,1); print @a;"
1-1-1-1-1-1-1-1-1-1

perl -e"$,='-'; print @a=(1,1,1,1,1,1,1,1,1,1);"
1-1-1-1-1-1-1-1-1-1