use IO::Prompt;
while (my $word=prompt 'Please enter a word: ', -while => qr/\S/) {
    print "You entered '$word'\n";
}