while(<INPUT>)
{
if ( $flag == 1 ) {
s/MONKSPART/MONKSPART$newchanges/ if /MONKS ()/;
$flag = 0 if /^fi/;
                }
                $flag = 1 if /^}/;

}