gistfile1.pl

 sub js_encode {
   my $text = shift;
   my @js_entities = ("\\", "\\\\", '&', '\&', '"', '\"', '<', '\<', '>', '\>', "'", "\'");
   # This was what was there before:
   #my @js_entities = ('&', '\&', '"', '\"', '<', '\<', '>', '\>', "'", "\'");
   my ($char, $js_char);
   for (my $i = 0; $i < scalar @js_entities; $i = $i + 2) {
     $text =~ s/$js_entities[$i]/$js_entities[$i+1]/g;
   }
   return $text;
}