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

$_ = "   a   b   c   ";

print "split():    $_\n" for split();
print "split(' '): $_\n" for split(' ');
print "split(/ /): $_\n" for split(/ /);

__END__

=head1 OUTPUT

split():    a
split():    b
split():    c

split(' '): a
split(' '): b
split(' '): c

split(/ /): 
split(/ /): 
split(/ /): 
split(/ /): a
split(/ /): 
split(/ /): 
split(/ /): b
split(/ /): 
split(/ /): 
split(/ /): c