#!/usr/bin/perl
while (<>) {
   if (/(.*)(\d+)(\.\d+)h(.*)/) {
      my $prefix = $1;
      my $hour = int($2);
      my $min = int($3 * 60);
      my $suffix = $4;
      printf("%s%02d:%02d%s\n", $prefix, $hour, $min, $suffix);
   } else {
      print;
   }
}