perl -pl040 -e1 < datei