my $var = "1 word here another word";
my @words = split /\s+/, $var;