String Perl

  1. Home
  2. Perl
  3. String
  4. Here document in a loop
#!/usr/bin/perl
use warnings;
use strict;
foreach (split "\n", <    Line 1
    Line 2
    Line 3
    LINES;
       print "Got: $_ \n";
}