sub next_word {
    my $self = shift;
    pos $self->{text} = $self->{position};
    my $word;
    my $sp = $self->_hunspell || $self->_aspell;
    while ($self->{text} =~ m/([a-zA-Z]+(?:'[a-zA-Z]+)?)/g) {
        $word = $1;
        next if $self->{ignore_list}{$word};
        last if !$sp->check($word);  # 263

##</code><code>##

use warnings;
use strict;

use Text::SpellChecker;
my $checker = Text::SpellChecker->new( text => "Foor" );
my $word = $checker->next_word;