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

##</code><code>##

foo,hello""world,bar