if ($entry =~ /^(\d+);(\d{2})-(\d{2})-(\d{4});(\d+);(\d{2})-(\d{2})-(\d{4})|(yes)(ter)(day);(.+)/i) {
    
    $i::zahl1 = $1;
    
    $i::date1 = timegm (0,0,0,$2,($3 - 1),$4);
    
    $i::zahl2 = $5;
    
    if ($6.$7.$8 =~ /^yesterday$/i) {
        $i::date2 = $^T - 24*60*60;
    } else {
        $i::date2 = timegm (0,0,0,$6,($7 - 1),$8);
    }
    
    $i::name = $entry5;
}