my $foo = <<'END'; ... print $foo;

Or in one go:

print $foo = <<'END';
...
END
[download]

- Yes, I reinvent wheels.
- Spam: Visit eurotraQ.