#!/usr/bin/perl -n
use Date::Manip qw(ParseDate UnixDate Date_IsWorkDay);

s/\r\n//;
s/.99/.1999/;
s/,/./;
s/\/s*/./;
@l=split /\t+/;
@d=split(/\./,$l[1]);
$d2= UnixDate((join( " ", join (".", $d[1],$d[0],$d[2]), $l[2])),"%c") ;
#print "Date: $d2\n";
$l[1]=join (".", $d[1],$d[0],$d[2]);
if (($l[4]>0)) {
  printf "%6.2f OS/min |%s(%s) %s\n", $l[5]/$l[4]*60.0, $l[6], $l[8], $d2;
}

