$ perl -e " my( $foo, $bar ) = @ARGV; print qq{$foo and $bar\n}; " one two
one and two

$ perl -e " print qq{$foo and $bar\n}; "
 and