my $str = "  foo bar baz  ";
my @spl = split $str;
print "@spl";

##</code><code>##

while ( <DATA> ) {
   split;
   #do something interesting;
}