my $input = <main::DATA>;
my $d = 0;
$_ = $input;
s/\s(\d+)\/(\d+)\/(\d{4})\s/{$d = 10000*$3+100*$1+$2 if $d < 10000*$3+100*$1+$2}/eg;
__DATA__
2024.01.03
2023.01.04
2024.05.06
2020.10.01
JC8gPSB1bmRlZjsKbXkgJGlucHV0ID0gPG1haW46OkRBVEE+OwpteSAkZCA9IDA7CgokXyA9ICRpbnB1dDsKcy9ccyhcZCspXC8oXGQrKVwvKFxkezR9KVxzL3skZCA9IDEwMDAwKiQzKzEwMCokMSskMiBpZiAkZCA8IDEwMDAwKiQzKzEwMCokMSskMn0vZWc7CgpwcmludCAkZDsKCl9fREFUQV9fCjIwMjQuMDEuMDMKMjAyMy4wMS4wNAoyMDI0LjA1LjA2CjIwMjAuMTAuMDE=