perl -MO=Deparse,-q -e"print qq(I am $x\n) . 'and fold this?'"

##</code><code>##

print(('I am ' . $x . "\n") . 'and fold this?');