#!/usr/bin/perl -w
use strict;

my $line = "  Bart  Lisa Maggie Marge Homer  ";
# notice the leading and trailing spaces
my @simpsons;
for ( " ", '\s', '\s+' ) {
    print "delimiter /$_/\n";
    @simpsons = split ( /$_/, $line );
    print map {"<$_>"} @simpsons;
    print $/;
}
print "delimiter ' '\n";
@simpsons = split ( ' ', $line );
print map {"<$_>"} @simpsons;
print $/;
__END__

delimiter / /
<><><Bart><><Lisa><Maggie><Marge><Homer>

delimiter /\s/
<><><Bart><><Lisa><Maggie><Marge><Homer>

delimiter /\s+/
<><Bart><Lisa><Maggie><Marge><Homer>

delimiter ' '
<Bart><Lisa><Maggie><Marge><Homer>

##</code><code>##

  As a special case, specifying a PATTERN of space
  ("' '") will split on white space just as "split"
  with no arguments does.  Thus, "split(' ')" can be
  used to emulate awk's default behavior, whereas
  "split(/ /)" will give you as many null initial
  fields as there are leading spaces.  A "split" on
  "/\s+/" is like a "split(' ')" except that any
  leading whitespace produces a null first field.  A
  "split" with no arguments really does a 
  "split(' ', $_)" internally.

##</code><code>##

perl -MO=Deparse -e '$_=" a b c ";print map {"<$_>"} split'
$_ = ' a b c ';
print map({"<$_>";} split(" ", $_, 0));