my ($entry1, $entry2, $entry3, $entry4, $entry5) = split (/\s*;\s*/, $entry, 5);

if ($entry1 =~ /^\d+$/) {
    $i::zahl1 = $entry1;
}

my ($day1, $month1, $year1) = split (/\s*-\s*/, $entry2, 3);
if ($day1 =~ /\d{2}/ and $month1 =~ /\d{2}/ and $year1 =~ /\d{4}/) {
    $i::date1 = timegm (0,0,0,$day1,($month1 - 1),$year1);
}

if ($entry3 =~ /^\d+$/) {
    $i::zahl2 = $entry3;
}

if ($entry4 =~ /^yesterday$/i) {
    $i::date2 = $^T - 24*60*60;
} else {
    my ($day2, $month2, $year2) = split (/\s*-\s*/, $entry4, 3);
    $i::date2 = timegm (0,0,0,$day2,($month2 - 1),$year2);
}

$i::name = $entry5;