$word = qq("$word") if $word !~ /"/;