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

##</code><code>##

"line1" + chr(13) + "line2" + chr(13)

##</code><code>##

"line1\nline2\n"