my $lr = chr(636);
my $ls = chr(383);
$str = 'B'.$lr.'i'.$ls,