my $lr = chr(636);
my $ls = chr(383);

$str = 'B'.$lr.'i'.$ls,
       
if ($str eq param('Name')
{
  ...

##</code><code>##


PrintUnicodeString($str),br;
PrintUnicodeString(param('Name'));

PrintUnicodeString
{
  join("",
         map {
               printf("\\x{%04X}", $_)   # \x{...}
         } unpack("U*", $_[0]));           # unpack Unicode characters
   }