my @word = $entry =~ /(\X+)/g;