How to substitute X characters of a line with Perl?

ZomB_Hunter

New member
I am scanning a document of over 200,000 lines where each line uses the following format:

C xxxxxxx xxxxxxx xxxxxxx

Where the x's represent a random number with a randomly placed decimal. I need to convert it to:

C xxxxxxx 0.00000 xxxxxxx

I used to know how to do this sort of thing, and the program crashes if I try s/C\b\B+\b\B+/C\b\B+" 0.00000"/; or something like that.
The "random numbers" are supplied by the document and must be kept. For example, I may have data like

C 5.63745 213.432 42.4701
C 12.4568 235.348 9.43569

and I need

C 5.63745 0.00000 42.4701
C 12.4568 0.00000 9.43569

and there are about 227,000 lines of this.
 
Back
Top