for my $zeile (split /\015?\012/, $FORMDATA{TextArea}) {
    # Mach was mit $zeile
    print $zeile;
}