$word[ $count ] =~ s/\'/\\\'/g;

##</code><code>##

s|\'|\\\'|g