Re: search and replace on a line by line basis

perl -lne 'print $1."20020101$3\n" if /^(.{188})(\d{8})(.{16})$/ and $2 != 0' original.txt > new.txt

_Search, Ask, ^Know

Comment on Re: search and replace on a line by line basis Download Code