my @Parts = split ' ', $Phrase;

##</code><code>##

my $s = '   a     b   c   ';

my @p = split ' ', $s;
print map { ">$_< " } @p;

my @q = split " ", $s;
print map { ">$_< " } @q;

my @r = split / /, $s;
print map { ">$_< " } @r;

my @s = split /\s+/, $s;
print map { ">$_< " } @s;

__END__
>a< >b< >c< 
>a< >b< >c< 
>< >< >< >a< >< >< >< >< >b< >< >< >c< 
>< >a< >b< >c<