# Still had to duplicate code `$word !~ /^\s*$/`
my $word;
do {
   print 'Please enter a word: ';
   chomp( $word = <STDIN> );
   if ( $word !~ /^\s*$/ ) {
       print "You entered '$word'\n";
   }
} while $word !~ /^\s*$/;