Jow, ich habe was übersehen (schäm)

auf Perl v5.8.8 muss anstelle der einfachen Schablone "U" die Schablone "U0U" rsp. "U0U*" verwendet werden dann tut length() und substr() (0 ist eine Null).

Wenn Zeichen im Script mit pack() erzeugt werden, setze für die Ausgabe aus einem CGI:

binmode STDOUT, ':utf8';

Viele Grüße,
Rolf