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