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