#!/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";