perl -e "print ord($zeichen)"