my @words = split /\s+/, $string;