use warnings;
use strict;

my $n = 5;

my $s = <<EOS;
line 1
line two
${ \ join "\n", ("repeated line tres") x $n }
line penultimate
line the last
EOS

print "[[$s]]";