use warnings; use strict; my $n = 5; my $s = <## c:\@Work\Perl\monks\Anonymous Monk\1197277>perl hiccup_here_1.pl [[line 1 line two repeated line tres repeated line tres repeated line tres repeated line tres repeated line tres line penultimate line the last ]]