use strict;
 
my $data="The first line
the second line
the third line
the last line.
";
 
my @lines= split(/\n/, $data);
shift @lines;
print join "\n", @lines;
print "\n";