test


#!/usr/bin/perl -w
sub JavascriptEncodeText($)
{
  my $string = shift;
  unless (defined ($string))
  {
    $string = '';
  }
  $string =~ s/([\x{80}-\x{ffff}])/sprintf('&#x%04X;', ord($1))/ge;
  return "$string";
}
#apples

print "test\n";
<\/code>