#!/usr/bin/perl

while (<>)
{
	if ($_ =~ /^((\d{2})\:\d{2})/)
	{
		$hourShift = int($2) - 6;
		die("subtracted too low") if ($hourShift < 0);
		printf "%02d%s", $hourShift, substr($_, 2);
	}
}