($jahr,$monat,$tag,$wochentag,$stunden,$minuten) = split "." , $work[3];