extraire le contenu d'un fichier avec perl

Bonjour,

nous recevons toujours des fichiers dans le format ci_dessous et on voudrait extraire que la derniére partie dans un autre fichier avec un script perl;

le format du fichier recus :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
This is a multi-part message in MIME format. 
 
------=_NextPart_000_0121_01C708D0.7AEEAB30 
Content-Type: text/plain; 
charset="iso-8859-1" 
Content-Transfer-Encoding: 8bit 
 
 
 
-----Message d'origine----- 
De : KHALID MONCEF 
Envoyé : mercredi 15 novembre 2006 15:49 
À : 'pfe@gis.ma' 
Objet : Envoi d'un message : OR99CT99SMIMESIGNECRYPTE_15-11-2006.unl 
 
 
Le message est prêt à être envoyé avec le fichier suivant ou les liens 
joints : 
 
OR99CT99SMIMESIGNECRYPTE_15-11-2006.unl 
 
 
Remarque : pour se protéger de virus informatiques, il se peut que les 
programmes de messagerie électronique évitent d'envoyer ou de recevoir 
certains types de pièces jointes. Vérifiez les paramètres de sécurité de 
votre messagerie électronique pour déterminer de quelle manière les pièces 
jointes sont gérées. 
 
------=_NextPart_000_0121_01C708D0.7AEEAB30 
Content-Type: application/octet-stream; 
name="OR99CT99SMIMESIGNECRYPTE_15-11-2006.unl" 
Content-Transfer-Encoding: quoted-printable 
Content-Disposition: attachment; 
filename="OR99CT99SMIMESIGNECRYPTE_15-11-2006.unl" 
@|99|OR|99|CT|200608091600|2006|212121||DD|TEST|||| 
D|2006|121201300030001011|08|1|1014|1365|xxxxx|1|1|10|10/01/2005|20/01=/2005|||||| 
D|2006|121201300030001012|08|1|1014|1365|xxxxxxx|1|2|11|10/01/2005|20/01=/2005|||||| 
D|2006|121201300000001040|08|1|1014|1365|xxxxxxx|2|3|15|15/01/2005|21/01=/2005|||||| 
D|2006|121201300000001060|08|1|1014|1365|xxxxxxxx|2|4|16|15/01/2005|21/01=/2005|||||| 
D|2006|320011300800001011|08|3200113008|1014|1365|4000000|3|5|12|12/01/2005|21/01/2005|||||| 
D|2006|320011300800001020|08|3200113008|1014|1365|4000000|3|6|13|13/01/2=2005|21/01/2005|||||| 
&|6| 
 
---_NextPart_000_0121_01C708D0.7AEEAB30--

ce que nous voulons extraire , c'est juste la derniére partie:

Code:

1
2
3
4
5
6
7
8
9
filename="OR99CT99SMIMESIGNECRYPTE_15-11-2006.unl" 
@|99|OR|99|CT|200608091600|2006|212121||DD|TEST|||| 
D|2006|121201300030001011|08|1|1014|1365|xxxxx|1|1|10|10/01/2005|20/01=/2005|||||| 
D|2006|121201300030001012|08|1|1014|1365|xxxxxxx|1|2|11|10/01/2005|20/01=/2005|||||| 
D|2006|121201300000001040|08|1|1014|1365|xxxxxxx|2|3|15|15/01/2005|21/01=/2005|||||| 
D|2006|121201300000001060|08|1|1014|1365|xxxxxxxx|2|4|16|15/01/2005|21/01=/2005|||||| 
D|2006|320011300800001011|08|3200113008|1014|1365|4000000|3|5|12|12/01/2005|21/01/2005|||||| 
D|2006|320011300800001020|08|3200113008|1014|1365|4000000|3|6|13|13/01/2=2005|21/01/2005|||||| 
&|6|

D'avance merci,

je suis qu'un débutant , merci de m'aider a completer cette tache,

Cordialement