programming-examples/perl/String/Here document in a loop.pl
2019-11-15 12:59:38 +01:00

13 lines
161 B
Perl

#!/usr/bin/perl
use warnings;
use strict;
foreach (split "\n", <<LINES) {
Line 1
Line 2
Line 3
LINES;
print "Got: $_ \n";
}