498     $word = qw("$word") if ($word =~ /\s/);