#!/usr/bin/perl -i
while(<>) { s/zorder="3"/zorder="11"/ if $last_line =~ /\[water\]/; print; $last_line = $_; }