Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...
  s/&([^;]+);?/"&#".eval(exists $lookup{\1} ? $lookup{\1} : \1).";"/e;
  print "($1) $_\n";
}
  2. or download this
    () fred
() adieresis
...
(Adieresis) &#;
(Adieresis) 
(Adieresis) fr&#;ed