my $string = q(one tow three four five six);
my @words = split(/ /, $string);