#!/usr/bin/perl -w

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

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

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

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

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

##</code><code>##

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

##</code><code>##

#!/usr/bin/perl -w

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

print "-------------\n";
foreach (/(?:^|\G)(.*)/gm){
  print "[$_]\n";
}

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

##</code><code>##

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