In that case,

my $string = ... from db ...;
my $jscode = $string;
$jscode =~ s/(\W)/ sprintf('\\0%o', ord($1)) /ge;
$jscode = qq{"$jscode"};
[download]

would also work.