$p1= index  $work[3],".";
$jahr = substr ( $work[3], 0, $p1);
...
$minuten = substr ( $work[3], $p5+1 );