TEST ()
{
echo "insert into monks values ('$1',sysdate,null,null,null,'OP',null,
+'$8','$5',9,$2,$4,$3);" >> $OPTHREE
}

MONKS ()
{
echo "insert into monks values ('$1',sysdate,null,null,null,'OP',null,
+'$8',2329,$3);" >> $OPTHREE
}

##</code><code>##

open ( INPUT , "../INPUT" ) or die " couldn't open \n";
  open ( COPYFILE , ">../INPUT/copyfile" ) or die " couldn't open file for input\n";
  
  my $flag = 0; # set this to 1 when you see your market
                # set it to 0 when you see END
 
                while(<INPUT>)
                {
                if ( $flag == 1 ) {
 
                s/MONKS.+?(2329)/9999/;
 
                       $flag = 0 if /^}/;
                                       }
                                               $flag = 1 if /MONKS/;
 
                                               print COPYFILE;
                                               }
                                               close (COPYFILE);
                                               close(INPUT);