LAUN Wolfgang wrote: > Und noch eine notwendige Korrektur: > > perl -lne'sub _{/(.)(.)$/,$2.$1.($`||0)}{$_-=_;s/-//;print$_+_==1089?ja:nein}' Ah ja, aber viiiel zu lang ;) perl -lne'sub _{/(.)(.)$/,$2.$1.0+$`}$_-=_,s,-,,,print$_+_==1089?"ja":"nein"' 998 ja 001 ja 100 ja 333 nein 78 chars (incl \n am Ende) leo