local $/= "# input for "; while () { s/1\.00/5/g if /Data\b\n/; print; } #### # input for Data 1.00 0.99 0.92 1.00 -0.22 0.61