#!/usr/bin/perl
$_ = <STDIN>;
chomp;
print "foo => '$_'";

##</code><code>##

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