perl -lne 's/(?<=.{188})(\d{8})(?=.{16})/$1 eq "00000000"?next:"20020101"/e && print' original.txt > new.txt