#! perl -slw
use strict;

my $text = <<EOT;
this is line 1
this is line 2
this is line 3
this is line 4
this is line 5
EOT

my @lines = split /\n/, $text;

print for @lines;