my @lines = split(/\015?\012/, $FORMDATA{TextArea});
foreach my $line(@lines){
  #... bearbeite diese Zeile...;
  print $line."\r\n";
}