in reply to Edit varaibles in file

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

[download]

Replies are listed 'Best First'.
A reply falls below the community's threshold of quality. You may see it by logging in.

In Section Seekers of Perl Wisdom