$s =~ s/'/'\\''/g;
   return "'$s'";

##</code><code>##

   return "'$s'";