#!/usr/bin/perl
use strict;
use warnings;

while (my $zeile = <DATA>) {
    my @arr=split " ", $zeile;
    my ($nummer, $datum1) = splice @arr, 0, 2;
    my ($datum2, $wert) = splice @arr, -2, 2;
    my $text = join " ", @arr;

    print "Nummer: $nummer, Datum1: $datum1, Datum2: $datum2, Wert: $wert, Text: $text\n";
}

__DATA__
4 02.11.2009 Lastschrift 02.11.2009 -1,11 
5 03.11.2009 Lastschrift ec-cash 02.11.2009 -111,11
6 04.11.2009 Gutschrift 04.11.2009 1.111,11