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