in reply to Re: Re: search and replace on a line by line basisin thread search and replace on a line by line basis
How about:
perl -lne 'next if /^.{188}0{8}.{16}$/; print if s/^(.{188})\d{8}(. +{16})$/${1}20020101$2/' original.txt > new.txt [download]