@ZEILEN = split(/\015?\012/,$FORMDATA{TEXTAREA});
foreach $ZEILE(@ZEILEN){
print $ZEILE." \r\n";
}