#!/usr/bin/perl5.6 -w

use strict; 

my $foo = "interpolated";
 
print <<END;
\n \ $foo
END
 
print <<'END';
\n \ $foo
END
 
print qq[\n \ $foo
];
 
print q[\n \ $foo
];

-------
output:
-------

  interpolated 
\n \ $foo
 
  interpolated
\n \ $foo