Re: Re: search and replace on a line by line basis

[pizza_milkshake]

that assumes that all lines in the file are of the format he describes. your example will pass through blank lines, for example. i believe he wants anything that is invalid filtered.

[gsiems]

Good point.

How about:

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