Script Needed Urgent in shell or PERL!!!!!!!!!!!!!!!!!!!!

My I/p FIle

#%npr
#
{
{
collectionBeginTime_Date 19Jul2007
granularityPeriod 900
NODEID BSC19
RLC_Raw_Blocksize_CS2 2048
START_DATE 19Jul07
measTimeStamp_Date 20Jul2007
COLLECTION_INTERVAL_MINS 15
RLC_User_Blocksize_CS2 1024
collectionBeginTime_Time 23:45:00
RLC_User_Rate_CS2 512
START_TIME 23:45
measTimeStamp_Time 00:00:00
CELLGPRS {
CS12DLACK 2880
CELLMOVED 0
ALLPDCHSCAN 90
ALLPDCHACTACC 1
PCHALLATT 14
PDRAC 21
#%npr
#
{
{
collectionBeginTime_Date 19Jul2007
granularityPeriod 900
NODEID BSC19
RLC_Raw_Blocksize_CS2 2048
START_DATE 19Jul07
measTimeStamp_Date 20Jul2007
COLLECTION_INTERVAL_MINS 15
RLC_User_Blocksize_CS2 1024
collectionBeginTime_Time 23:45:00
RLC_User_Rate_CS2 512
START_TIME 23:45
measTimeStamp_Time 00:00:00
CELLGPRS {
CS12DLACK 2880
CELLMOVED 0
ALLPDCHSCAN 90
ALLPDCHACTACC 1
PCHALLATT 14
PDRAC 21
PAGCSBVCI 0
DLTBFEST 15
TBFPREEMPEST 0
PPAGCSBVCI 0
PREEMPTPDCH 0
FAILDLTBFEST 0
CS12ULSCHED 28
OBJ_ID 16834
ALLPDCHACC 21
suspectFlag 00
MOVECELLTBF 0
MC19ULSCHED 6
CS12DLSCHED 12
PCHALLFAIL 0
CS12ULACK 6720
MC19QULSCHED 0
PREEMPTTBF 0
ALLPDCHPEAK 3
MC19ULACK 1344
PDPRAC 0
MC19QULACK 0
}
CELLGPRS {
CS12DLACK 720
CELLMOVED 0
ALLPDCHSCAN 90
ALLPDCHACTACC 7
PCHALLATT 15
PDRAC 15
PAGCSBVCI 0
DLTBFEST 8
TBFPREEMPEST 0
PPAGCSBVCI 0
PREEMPTPDCH 0
FAILDLTBFEST 0
CS12ULSCHED 7
OBJ_ID 16835
ALLPDCHACC 37
suspectFlag 00
MOVECELLTBF 0
MC19ULSCHED 41
CS12DLSCHED 3
PCHALLFAIL 0
CS12ULACK 1680
MC19QULSCHED 23
PREEMPTTBF 0
ALLPDCHPEAK 3
MC19ULACK 28432
PDPRAC 0
MC19QULACK 22560
}

Like this i wil be having many blocks in my i/p file..My Task is to get the value ALLPDCHSCAN 90 if the value of OBJ_ID is 16484..

Very urgent

Thanks in Advance

I don't understand your requirement.
Please show us the required result for your input file.

Jean-Pierre.