my $Trenner = chr(0x0D).chr(0x0A);
my @ZEILEN = split(/$Trenner/,$FORMDATA{TEXTAREA});
 foreach $ZEILE(@ZEILEN){
 print $ZEILE." \r\n";
}