my $string = ... from db ...;
my $jscode = $string;
$jscode =~ s/(\W)/ '" + chr(' . ord($1) . ') + "' /ge;
$jscode =~ s/ \+ ""//g;
$jscode = qq{"$jscode"};