$ perl -E 'my $x = "YZ"; say q{{"X":"$x"}}' {"X":"$x"} #### $ perl -E 'my $x = "YZ"; say qq{{"X":"$x"}}' {"X":"YZ"}