Monks , I am re write the issue to make it easier to read : How can I match the following in a file 
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
}

[download]
and only change the nubmer 2329 to 9999 under the monks part. What I have so far is not working : 
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);

[download]

In reply to changing input file updated by Anonymous Monk

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.