Hello monks , I am reading the following DATA file wich contain: 
LOSER ()
{
echo "insert into monks values ('$1',sysdate,null,null,null,'OP',null,
+'$8',23,$3);" >> $OPTHREE
}

TEST ()
{
echo "insert into monks values ('$1',sysdate,null,null,null,'OP',null,
+'$8','$5',9,$2,$4,$3);" >> $OPTHREE
# the following line should remain unchanged
echo "insert into monks values ('$1',sysdate,null,null,null,'OP',null,
+'$8',2329,$3);" >> $OPTHREE
}

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

[download]
I need to only change the nubmer 2329 to 9999 under the monks part and re write it to the same file so my Output should contain the MONKS part as follow: 
MONKS ()
{
echo "insert into monks values ('$1',sysdate,null,null,null,'OP',null,
+'$8',9999,$3);" >> $OPTHREE
}

[download]
I am doing the following but not getting the result I want it just not chanigning the value , can someone help: 
use strict;
use warnings;

my $text = do { local $/; <DATA> };

$text =~ s/(MONKS[\s\(\)]+{.*?,\s*?)2329(\s*?,[^}]*})/${1}9999${2}/sg;

print "$text";

[download]
thanks

janitored by ybiC: Retitle from "exreg within an input file" for better searching

In reply to regex within an input file 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.