#!/usr/bin/perl -w

$_ = "The quick\n\nbrown fox\njumped.";

print "-------------\n";
foreach (/(.*)/gm){
  print "[$_]\n";
}

print "-------------\n";
foreach (split/\n/){
  print "[$_]\n";
}

print "-------------\n";

##</code><code>##

-------------
[The quick]
[]
[]
[brown fox]
[]
[jumped.]
[]
-------------
[The quick]
[]
[brown fox]
[jumped.]
-------------