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