perl -lne 'next if /.{188}00000000.{16}/; $d='20020101'; s/(.{188})\d{8}(.{16})/$1$d$2/; print' original.txt > new.txt