Hi,
would this help you?

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

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

results in: 3 lines
Regards,
svenXY