Code:

$x = '\n';
print "var  :==$x==\n";
print "eval :==",
      eval( qq{ sprintf "%s","$x" } ),
      "==\n";

Output:

var  :==\n==
eval :==
==

You need double-quotish interpolation *twice*. :)
Comment on Re: Substituting literal strings for escape characters