Modificering af indholder i en liste

Halløjsa håber at i kan hjælpe mig med mit lille problem.

Jeg har taget indholdet af en fil og puttet ind i en liste. Alle linjer ser således ud.

1    ,C1,4000229  ,                                 
1    ,R1,5011191  ,                                 
1    ,MP1,3304179  ,                                 
1    ,MP2,3304179  ,                                 
1    ,C2,4000228  ,                                 

Jeg vil så have konverteret selve den streng der til noget andet.

Det eneste jeg skal bruge fra ovenstående streng er tallet og så det der står foran (C1 fx)

Jeg vil så have dem skrevet ud i en fil der har dette format, dog vil jeg meget gerne have listen sorteret efter nummeret.
Alle andre tal og tegn er faste parametre.

Dvs outputtet i filen skulle gerne se sådan ud:

MP1  A 3304179  0    0 P      0    0    0
MP2  A 3304179  0    0 P      0    0    0
C2    A 4000228  0    0 P      0    0    0
C3    A 4000228  0    0 P      0    0    0
C1    A 4000229  0    0 P      0    0    0
R1    A 5011191  0    0 P      0    0    0


Er der nogen der har en ide til hvordan dette problem kan løses med perl? Jeg har siddet og brudt mit hoved lidt med det, men kan ikke helt hitte ud af det.