#!/usr/bin/perl

use strict;
use warnings;

$_ = " foo bar baz ";

my @a = split ' ';
my @b = split /\s+/;

print scalar @a, "\n";
print scalar @b, "\n";
 
__END__
3
4