$day = sprintf('%2d', $DAY); $hour = sprintf('%02d', $HOUR); $minute = sprintf('%02d', $MINUTE); print("$1 $2\n", br) if m/^(... $MONTH $day $hour:$minute:.. .{4}) (.*)/;