#!/usr/local/bin/perl

# ptt telecom Telefongebühren

while(<>)
{
    s/\n$//; print;
    $c = /[MTWF].. ... .. (0[89]|1[0-7]):/ ? 6.25 : 3.25;
    ($h,$m) = /[(](\d+):([\d.]+)[)]/;
    $T+=$m+=60*$h; $C+=$c*=$m;
    printf " + %0.2f = %0.2f\n", $c/100, $C/100;
}
print "Total: $T min\n";