Select Code to Download

 my $AccUsg;

while(<AH>) {
...
  }
}
close(AH);

while(<FH>) {
  chomp;
...

}
close(FH);

P[containerVrsn:U(0)recordVrsn:U(0)size:U(560)ownGid:G[mdp:U(111817893
+5)seqNo:U(55)]logicalDbNo:U(1)classVrsn:U(1)timeStamp:U(0)dbRecord:T[
+classNo:U(1091971)size:U(532)updateVersion:U(1157)checksum:U(13183789
+05)EPC_UsageControlAccumulatedPot:R[subscriberId:S12("918970692483")u
+sageControlAccum:S543("{\"reportingGroups\":[{\"absoluteAccumulated\"
+:{\"counters\":[{\"bidirVolume\":3022011787,\"name\":\"base\"}],\"exp
+iryDate\":{\"volume\":\"25-05-2013T00:00:00\"},\"previousExpiryDate\"
+:{\"time\":\"25-04-2013T00:00:00\",\"volume\":\"25-04-2013T00:00:00\"
+},\"reportingLevel\":\"totalTraffic\",\"resetPeriod\":{\"volume\":\"3
+0 days\"}},\"name\":\"110\",\"restartInfo\":\"25-04-2013T00:00:00\",\
+"selected\":\"no\",\"subscriberGroupName\":\"KA_FUP_2G80K_30\",\"subs
+criptionDate\":\"25-04-2013T00:00:00\",\"validityTime\":1800}],\"vers
+ion\":\"2.0\"}")]]]

P[containerVrsn:U(0)recordVrsn:U(0)size:U(276)ownGid:G[mdp:U(109017151
+1)seqNo:U(28)]logicalDbNo:U(1)classVrsn:U(1)timeStamp:U(0)dbRecord:T[
+classNo:U(1064620)size:U(248)updateVersion:U(5)checksum:U(928324968)E
+PC_SubscriberPot:R[userId:S12("919902995746")groups:A1[ix0:S12("KA_BA
+SIC:100")]services:A0[]blacklist_services:A0[]operatorInfo:A5[ix0:S21
+("HomeMNC1:DefaultValue")ix1:S11("CircleId:KA")ix2:S13("OptInState:2G
+")ix3:S9("imei:NULL")ix4:S16("PlanType:prepaid")]pccSubscriberPotRef:
+M0[]notificationData:A0[]familyId:S0("")trafficIds:A0[]]]]

MSISDN,IMEI,Circle,DeviceType,OPTIN,PlanType,PACKID1;priority;startdat
+e;enddate;AccumulateUsage|PACKID2;priority;startdate;enddate;Accumula
+teUsage|PACKID3;priorit
y;startdate;enddate;AccumulateUsage|PACKID4;priority;startdate;enddate
+;AccumulateUsage|
919164032638,NULL,KA,,2G,prepaid,KA_BASIC;100;;;|KA_FUP_2G80K_30;90;22
+-08-2014T00:00:00;20-09-2014T23:59:59;7032609129