Select Code to Download

            Güldenstädt's Redstart

            Güldenstädtâ??s Redstart

    $string =~ 
s/([\xC2\xC3])([\x80-\xBF])/chr(ord($1)<<6&0xC0|ord($2)&0x3F)/eg;

    use Unicode::Normalize 'normalize';

    use Unicode::String qw(utf8 latin1);

  use Unicode::UCD 'charinfo';

...
        $string =~ s/$U_char/$subs{$U_codepoint}/;    
          # and $subs{252} = ü
  }

    foreach my $i (126 ... 255) {
        $subs{$i} = chr($i);
    }