examples/scalars/here_document_q.pl
use strict;
use warnings;

my $str = <<'END_STRING';
Some text

$this_is_not_interpolated

more text

END_STRING

print $str;
examples/scalars/here_document_q.out
Some text

$this_is_not_interpolated

more text