Select Code to Download

  $string =~ s/(\P{InBasic_Latin})/                 # Look for codepoi
+nts that are not in Basic_Latin; for example the sign ü
    defined( $subs{ord($1)} )                       # if $1 = ü,  the
+n ord($1)  = 252. We ask is there a value in %subs for key '251' ?
...
                                                    # You have to writ
+e into make_the_subs_hash()  a line like this $subs{8224} = '¦'; . Th
+ats  at [1] below
                                                    # Then re run the 
+script with the extended  %subs
  return($string);

  foreach my $i (126 ... 255) {
      $subs{$i} = chr($i);
...
  $subs{339}  = 'oe';# LATIN SMALL LIGATURE OE
  $subs{8217} = "'" ;# RIGHT SINGLE QUOTATION MARK
  $subs{8224} = '×' ;# DAGGER