- print $in q|some json|;
+ print $in "some json\n";