my $data = q{
line 1
line 2
line 3
};
# OR
$data = <<'END';
line 1
line 2
line 3
END

# to ensure a terminating newline
# chomp $data; $data .= $/

print "$data";