#!/usr/local/bin/perl -spi.bak
# converts german special characters to ISO chars
# option: -l converts > and < too

s#<([^AaiI/])#&lt;$1#g; if $l;
s#>([^AaiI/])#&gt;$1#g; if $l;
s/Ö/&Ouml;/g;
s/Ü/&Uuml;/g;
s/Ä/&Auml;/g;
s/ö/&ouml;/g;
s/ü/&uuml;/g;
s/ä/&auml;/g;
s/\(c\)/&copy;/g;
# s/&/&amp;/g;
# s/ß/&#223;/g;
$_ =~ s/ß/&szlig;/g;