my $time1 = "98:26";
my $time2 = "25:58";
printf "%02d:%02d",sub{int($_[0]/3600),int($_[0]%3600)/60}
->(to_sec($time1)-to_sec($time2));
sub to_sec {
return $1*3600+$2*60 if $_[0] =~ /^(\\d+):(\\d\\d)$/;
return 0; # zdes\' mozhno napisat\' chto-to drugoe
}