perl -MO=Deparse,-q -e"print qq(I am $x\n)"

##</code><code>##

print 'I am ' . $x . "\n";