$_ = "one
two
three

four


";
foreach my $line (split(/\n/)) {
    print "$line\n";
}