my $foo = << "END";
This is some text that will be placed in the scalar \$foo.
Variables like $this and $that will be interpolated.
END
print $foo;