Help Perl Programme

Bonjour,

SVP, j'ai besoin de votre aide pour la creation d'un programme perl dont le but est le suivant:

J'ai un fichier avec le format suivant:
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
%%LST SUB: ISDN="240551465010", DETAIL=TRUE;%%
SUCCESS0001:Operation is successful

IMSI = 627030102194360
ISDN = 240551465010
CardType = SIM
NAM = BOTH
CATEGORY = COMMON
"LOCK"
IC = FALSE
OC = FALSE

GPRSLOCK = FALSE

"SABLOCK"
IC = FALSE
OC = FALSE

"Basic Service"
Telephony (TS11)
Emergency Call (TS12)
Short Message MT_PP (TS21)
Short Message MO_PP (TS22)
DefaultCall = Telephony (TS11)

"ODB Data"
ODBSS = FALSE
ODBOC = NOBOC
ODBIC = NOBIC
ODBPB1 = FALSE
ODBPB2 = FALSE
ODBPB3 = FALSE
ODBPB4 = FALSE
ODBENTE = FALSE
ODBINFO = FALSE
ODBROAM = BROHPLMN
ODBRCF = NOBRCF
ODBECT = NOBECT
ODBDECT = FALSE
ODBMECT = FALSE
ODBPOS = NOBPOS
ODBPOSTYPE = BOTH

"SS Data"
CFU = PROV
NCS = FALSE
COU = SUBSCRIBER
BSG = ALL
CFB = PROV
NFS = TRUE
NCS = FALSE
COU = SUBSCRIBER
BSG = ALL
CFNRY = PROV
NFS = TRUE
NCS = FALSE
COU = SUBSCRIBER
BSG = ALL
CFNRC = PROV
NCS = FALSE
COU = SUBSCRIBER
BSG = ALL
CFD = NOTPROV
NFS = FALSE
NCS = FALSE
SUPINTERCFD = FALSE
BSG = ALL
BAOC = PROV
BOIC = PROV
BOICEXHC = PROV
BORO = PROV
BAIC = PROV
BICROAM = PROV
CLIP = PROV
CLIR = NOTPROV
COLP = NOTPROV
COLR = NOTPROV
ECT = NOTPROV
CW = PROV
HOLD = PROV
MPTY = NOTPROV
AOCI = NOTPROV
AOCC = NOTPROV
UUS1 = NOTPROV
UUS2 = NOTPROV
UUS3 = NOTPROV
SMSCF = NOTPROV
plmn-specificSS-1 = NOTPROV
plmn-specificSS-2 = NOTPROV
plmn-specificSS-3 = NOTPROV
plmn-specificSS-4 = NOTPROV
plmn-specificSS-5 = NOTPROV
plmn-specificSS-6 = NOTPROV
plmn-specificSS-7 = NOTPROV
plmn-specificSS-8 = NOTPROV
plmn-specificSS-9 = NOTPROV
plmn-specificSS-A = NOTPROV
plmn-specificSS-B = NOTPROV
plmn-specificSS-C = NOTPROV
plmn-specificSS-D = NOTPROV
plmn-specificSS-E = NOTPROV
plmn-specificSS-F = NOTPROV
"O-CSI"
TPLID = 0
TPLNAME = OCSI-PPC
"T-CSI"
TPLID = 0
TPLNAME = TCSI-PPC
"TIF-CSI"
TIFCSI = NOTPROV
"VLR/SGSN Roaming Restrict"
VLRLIST = 0
TPLNAME = vlr-restrict
SGSNLIST = 0
TPLNAME = SGSN_HPLMN

SMDP = MSC
NLRInd = NONE
ALS = NOTPROV
VVDN = NOTPROV
ARD = NOTPROV
CARP = NOTPROV
RROption = ALL_PLMNS
VBS = NOTPROV
VGCS = NOTPROV
EMLPP = NOTPROV
FMInit = NOTPROV
FMSupervisor = NOTPROV
FMRemote = NOTPROV

"Dynamic Status Information For GSM"
VlrNum = 240556000102
MscNum = 240556000102
MsPurgedForNonGprs = FALSE
VLRInHplmn = TRUE
VLRInHomeCountry = TRUE
VlrInArea = TRUE
RequireCheckSS = FALSE
RoamingRestrictInMscDueToUnsupportedFeature
= FALSE
MscOrVlrAreaRoamingRestrict
= FALSE
ODBarredForUnsupportedCamel
= FALSE
SupportedCamelPhase1 = TRUE
SupportedCamelPhase2 = TRUE
SupportedCamelPhase3 = TRUE
SupportedCamelPhase4 = FALSE
SRIMsrnCfActive = TRUE
ZoneCodeStatusAtMsc = zoneCodesSupported
ECATEGORYAtMsc = FALSE

BaocForVlrRestrict = FALSE

"Dynamic Status Information For GPRS"
SgsnNum = 240556000104
SgsnAddressType = IPV4
SgsnAddress = 41.79.48.23
SgsnInHplmn = TRUE
MsPurgedForGprs = FALSE
SgsnInHomeCountry = TRUE
SgsnInArea = TRUE
RoamingRestrictInSgsnDueToUnsupportedFeature
= FALSE
SgsnAreaRoamingRestrict = FALSE
ODBarredForUnsupportedCamelForGprs
= FALSE
SupportedCamelPhase3 = TRUE
SupportedCamelPhase4 = FALSE
ZoneCodeStatusAtSgsn = zoneCodesSupported

"Short Message Dynamic Data for GSM"
MCEF = FALSE
MNRF = FALSE
MNRR = No Reason for Non-GPRS

"Short Message Dynamic Data for GPRS"
MCEF = FALSE
MNRG = FALSE
MNRR = No Reason
SupportedShortMessageMT-PP = TRUE
SupportedShortMessageMO-PP = TRUE

"ODB Supported Features For GSM"
BarredSSAccess = TRUE
BarredOutgoingEntertainmentCall
= TRUE
BarredOutgoingInformationCall
= TRUE
BarredOutgoingInternationalCallExHC
= TRUE
BarredOutgoingInternationalCall
= TRUE
BarredAllOutgoingCall = TRUE
BarredAllECT = TRUE
BarredChargeableECT = TRUE
BarredInternationalECT = TRUE
BarredInterzonalECT = TRUE
BarredDECT = TRUE
BarredMECT = TRUE

"ODB Supported Features For GPRS"
BarredAllOutgoingCall = TRUE
BarredOutgoingInternationalCall
= TRUE
BarredOutgoingInternationalCallExHc
= TRUE
Barring of Packet Oriented Services
= TRUE

"Supported LCS"
MSC Supported LCS Capability Set1
= TRUE
MSC Supported LCS Capability Set2
= FALSE
SGSN Supported LCS Capability Set2
= FALSE

"Featured Service Supported Features"
ALS = FALSE
VVDN = FALSE

Total count = 172

There is together 1 report

--- END

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
le but c'est d'avoir un fichier sortie text avec le format suivant:

HLRSN,IMSI,ISDN,ISDN_ID,DEFAULTCALL,DSCODE,CardType,NAM,CATEGORY,IC,OC,GPRSLOCK,IC,OC,Telephony(TS11),EmergencyCall(TS12),ShortMessageMT_PP(TS21),ShortMessageMO_PP(TS22),General-dataCDA(BS20),General-DataCDS(BS30),DefaultCall=Telephony(TS11),ODBSS,ODBOC,ODBIC,ODBPB1,ODBPB2,ODBPB3,ODBPB4,ODBENTE,ODBINFO,ODBROAM,ODBRCF,ODBECT,ODBDECT,ODBMECT,ODBPOS,ODBPOSTYPE,CFU,NCS,COU,BSG,STATUS,CFB,NFS,NCS,COU,BSG,STATUS,CFNRY,NFS,NCS,COU,BSG,STATUS,CFNRC,NCS,COU,BSG,STATUS,CFD,NFS,NCS,SUPINTERCFD,VALIDCCF,FTN,BSG,NotReplyTime,STATUS,FTN,BSG,NotReplyTime,STATUS,FTN,BSG,NotReplyTime,STATUS,CD,BAOC,BOIC,BOICEXHC,BORO,BAIC,BICROAM,CBCOU,CLIP,CLIR,COLP,COLR,ECT,CW,HOLD,MPTY,MC,AOCI,AOCC,CUG,UUS1,UUS2,UUS3,SMSCF,plmn-specificSS-1,plmn-specificSS-2,plmn-specificSS-3,plmn-specificSS-4,plmn-specificSS-5,plmn-specificSS-6,plmn-specificSS-7,plmn-specificSS-8,plmn-specificSS-9,plmn-specificSS-A,plmn-specificSS-B,plmn-specificSS-C,plmn-specificSS-D,plmn-specificSS-E,plmn-specificSS-F,CNAP,allplmn-specificSS,TPLID,TPLNAME,STATE,TPLID,TPLNAME,STATE,TPLID,TPLNAME,TIFCSI,VLRLIST,TPLNAME,SGSNLIST,TPLNAME,CHARGE_GLOBAL,CNTXID,PDPTYPE,ADDIND,RELCLS,DELAYCLS,PRECLS,PEAKTHR,MEANTHR,ARPRIORITY,ERRSDU,DELIVERY,TRAFFICCLS,MAXSDUSIZE,MAXBRUPL,MAXBRDWL,RESBER,SDUERR,TRANSFERDEL,TRAFFICPRI,MAXGBRUPL,MAXGBRDWL,APN,VPLMN,CHARGE,CNTXID,PDPTYPE,ADDIND,RELCLS,DELAYCLS,PRECLS,PEAKTHR,MEANTHR,ARPRIORITY,ERRSDU,DELIVERY,TRAFFICCLS,MAXSDUSIZE,MAXBRUPL,MAXBRDWL,RESBER,SDUERR,TRANSFERDEL,TRAFFICPRI,MAXGBRUPL,MAXGBRDWL,APN,VPLMN,CHARGE,CNTXID
2,724340301971671,553496472198,1,Telephony (TS11),Telephony (TS11),USIM,BOTH,224,TRUE,TRUE,TRUE,FALSE,FALSE,Telephony(TS11),EmergencyCall(TS12),ShortMessageMT_PP(TS21),ShortMessageMO_PP(TS22),General-dataCDA(BS20),General-DataCDS(BS30),DefaultCall=Telephony(TS11),FALSE,NOBOC,NOBIC,FALSE,FALSE,FALSE,FALSE,FALSE,FALSE,NOBAR,NOBRCF,NOBECT,FALSE,FALSE,NOBPOS,BOTH,NOTPROV,FALSE,SUBSCRIBER,ALL,NOTPROV,NOTPROV,FALSE,FALSE,SUBSCRIBER,ALL,NOTPROV,NOTPROV,FALSE,FALSE,SUBSCRIBER,ALL,NOTPROV,NOTPROV,FALSE,SUBSCRIBER,ALL,NOTPROV,PROV,TRUE,TRUE,TRUE,CFB&CFNRy&CFNRc,55003496472198,TS1X,30,PROV|REG|QUIESCENT,55003496472198,BS2X,30,PROV|REG|QUIESCENT,55003496472198,BS3X,30,PROV|REG|QUIESCENT,NOTPROV,NOTPROV,NOTPROV,NOTPROV,NOTPROV,NOTPROV,NOTPROV,SUBSCRIBER,PROV,NOTPROV,NOTPROV,NOTPROV,NOTPROV,PROV,PROV,NOTPROV,NOTPROV,NOTPROV,NOTPROV,NOTPROV,NOTPROV,NOTPROV,NOTPROV,NOTPROV,NOTPROV,NOTPROV,NOTPROV,NOTPROV,NOTPROV,NOTPROV,NOTPROV,NOTPROV,NOTPROV,NOTPROV,NOTPROV,NOTPROV,NOTPROV,NOTPROV,NOTPROV,NOTPROV,NOTPROV,9,CTBC_PREPAGO_OCSALGAR,TRUE,9,CTBC_PREPAGO_OCSALGAR,TRUE,9,PREPAGO_OCSALGAR,NOTPROV,1,Permit Claro e VIVO Roaming,0,Deny Data Roaming All,,NONE,3,IPV4,DYNAMICADDRESS,ACKALLPRODT,DELAY1,NORMAL,256000OCT,50000000OCT,NORMAL,NO,YES,INTERACT,1500OCT,384K,384K,0.00001,0.0001,10MS,PRIORITY2,384K,384K,wap.ctbc.br,TRUE,NORMAL,4,IPV4,DYNAMICADDRESS,ACKRLCPRODT,DELAY1,NORMAL,64000OCT,100000OCT,NORMAL,NODETECT,YES,STREAM,1502OCT,384K,1280K,0.05,0.001,10MS,PRIORITY1,384K,1280K,video.ctbc.br,TRUE,NONE,2

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Merci d'avance
Cordialement
Lamine