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