perl -le '$x="foo"; $y="bar"; print $x $y'

perl -le '$x="foo"; $y="bar"; print $x, $y'