Select Code to Download

my $lr = chr(636);
my $ls = chr(383);
...
if ($str eq param('Name')
{
  ...

PrintUnicodeString($str),br;
...
         } unpack("U*", $_[0]));           # unpack Unicode characters
   }