Hi, I have a text file which contains the following information. 'DISP SPGTRUL' EXECUTING --------- SPGTTRL | SPGTRUL | Global Title | SPGTCRUL | Pointer --------- ID | Name | ID | Name | Address Information | ID | Name | Type | ID | Name ============================================================================================================================= 2 | INTINT | 0 | ------------ | 60120000215 | - | - | SPRNS | 16 | SMS015 --------- 2 | INTINT | 1 | 963 | 963 | - | - | SPRNS | 55 | IRIGLS --------- 2 | INTINT | 2 | 595 | 595 | - | - | SPRNS | 55 | IRIGLS --------- 2 | INTINT | 3 | 60120001035 | 60120001035 | - | - | SPRNS | 26 | IN3#3 --------- . . . --------- 2 | INTINT | 499 | 6012202 | 6012202 | 1 | CANGT | SPENS | 10 | HLHTA TABLE 1/2 -- SPGTTRL | SPGTRUL | Global Title | Include | Possible | Traffic | Resume -- ID | Name | ID | Name | Address Information | SPC | Ported Number | Type | At Digit ====================================================================================================================== 2 | INTINT | 0 | ------------ | 60120000215 | FALSE | FALSE | Nat. Own | - -- 2 | INTINT | 1 | 963 | 963 | FALSE | FALSE | Nat. Own | - -- 2 | INTINT | 2 | 595 | 595 | FALSE | FALSE | Nat. Own | - -- 2 | INTINT | 3 | 60120001035 | 60120001035 | FALSE | FALSE | Nat. Own | - -- . . . -- 2 | INTINT | 499 | 6012202 | 6012202 | FALSE | FALSE | Nat. Own | - TABLE 2/2 Work in progress... 'DISP SPGTRUL' EXECUTING --------- SPGTTRL | SPGTRUL | Global Title | SPGTCRUL | Pointer --------- ID | Name | ID | Name | Address Information | ID | Name | Type | ID | Name ============================================================================================================================= 2 | INTINT | 500 | 6012203 | 6012203 | 1 | CANGT | SPENS | 10 | HLHTA --------- 2 | INTINT | 501 | 6012200 | 6012200 | 10 | INTINTB | SPGTTRL | 1 | INTNAT --------- 2 | INTINT | 502 | 6012205 | 6012205 | 1 | CANGT | SPENS | 10 | HLHTA --------- 2 | INTINT | 503 | 6012206 | 6012206 | 1 | CANGT | SPENS | 10 | HLHTA --------- . . . --------- 2 | INTINT | 999 | 6012270 | 6012270 | 1 | CANGT | SPENS | 128 | HLNLB TABLE 1/2 -- SPGTTRL | SPGTRUL | Global Title | Include | Possible | Traffic | Resume -- ID | Name | ID | Name | Address Information | SPC | Ported Number | Type | At Digit ====================================================================================================================== 2 | INTINT | 500 | 6012203 | 6012203 | FALSE | FALSE | Nat. Own | - -- 2 | INTINT | 501 | 6012200 | 6012200 | FALSE | FALSE | Nat. Own | 1 -- 2 | INTINT | 502 | 6012205 | 6012205 | FALSE | FALSE | Nat. Own | - -- 2 | INTINT | 503 | 6012206 | 6012206 | FALSE | FALSE | Nat. Own | - -- . . . -- 2 | INTINT | 999 | 6012270 | 6012270 | FALSE | FALSE | Nat. Own | - TABLE 2/2 Work in progress... 'DISP SPGTRUL' EXECUTING and the file goes on Now, I have to merge all records in Table 1 into a file and all records in Table 2 to another file. How do I do that? Nimi

My Perl script is:- #!/usr/bin/perl $strMain_Dir = "/data/Dstage/SDCT/source"; $strSubA_Dir = "/data/Dstage/SDCT/output"; $strSubB_Dir = "/data/Dstage/SDCT/output"; opendir DIRHANDLE, $strMain_Dir; @strFiles = grep !/^\.\.?$/, readdir DIRHANDLE; closedir DIRHANDLE; $iFileCount = 0; while ($strFiles[$iFileCount] ne "") { print "Processing $strFiles[$iFileCount], please wait\n"; Process_File ("$strFiles[$iFileCount]"); $iFileCount++; } sub Process_File { local ($strFile) = @_; #Get the Out File Name $strOutFileA = "$strSubA_Dir/$strFile".".subA"; $strOutFileB = "$strSubB_Dir/$strFile".".subB"; open (IFILE, "$strMain_Dir/$strFile"); open (OUTFILEA, ">$strOutFileA"); open (OUTFILEB, ">$strOutFileB"); $iCounter = 0; while (<IFILE>) { $strLine = $_; $strHeader = substr ($strLine,0,7); if ($strHeader eq "TABLE 1") { $iCounter++; } if ($strHeader eq "TABLE 2") { $iCounter = 0; } if ($iCounter = 0) { print OUTFILEA ($strLine); } else { print OUTFILEB ($strLine); } } close (IFILE); close (OUTFILEA); close (OUTFILEB); } I am not getting the desired result. What went wrong? Nimi

its ok i found the solution. Nimi