local $/= "# input for ";
while (<FILE1>) {
        s/1\.00/5/g if /Data\b\n/;
        print;
                }