## single quotes around heredoc
my $string = <<'STRING';
 one.
 two \n \n .
 three.
STRING

my @lines = $string =~ m/^(.*?)$/msg;
print scalar @lines, " lines\n";