Script perl

bonjour! j'ai besoin d'écrire un script en perl qui traite les ligne d'un fichier à savoir: On a un fichier comme celui ci; 1600SM_MBANKOLO_S17P2-1660_CBC_S19P1 1660SM_MBANKOLO1/r01s1b17p02 1660_CBC/r01s1b19p001 STM1 0 0 2009/07/03-19:42:59 1600SM_MBANKOLO_S20P1-1660_1_BANENGO_S18P2 1660SM_MBANKOLO1/r01s1b20p01 1660_1_Banengo/r01s1b18p002 STM1 0 0 2009/06/30-02:39:20 1642EM_AKUM_S1P1_1660_Balessing_S18P2 1642_AKUM/r01s1b01p01 1660SM_BALESSING/r01s1b18p02 STM1 0 63 2010/03/04-02:32:04 et on voudrai obternir: 1600SM_MBANKOLO_S17P2-1660_CBC_S19P1 1660SM_MBANKOLO1 1600SM_MBANKOLO_S20P1-1660_1_BANENGO_S18P2 1660SM_MBANKOLO1 Merci uregent