perl -lne 'print if s/^(.{188})[1-9]\d{7}(.{16})$/${1}20020101$2/' original.txt > new.txt