substr $_, 23, 2, sprintf '%02d', rand 100;
substr $_, 36, 2, sprintf '%02d', rand 100;