16:31 >perl orig.pl
Enter file name:
p17226.csv
M19 :               M19<-Q,  P           I_1
M15 :               M15<-Q,  Pl          I_2
M23 :               M23<-Q,  Pl          I_2
M11 :               M11<-Q,  Pl          I_2
M22 :               M22<-Q,  Pl          I_2
M31 :               M31<-Q,  Pl          I_2
M27 :               M27<-Q,  Pl          I_2
M24 :               M24<-Q,  Pl          I_2
M5  :                M5<-Q,  Pl          I_2
M12 :               M12<-Q,  Pl          I_2
...
M567:     M567<-M73<-M1<-Q,  E.E.E     IV_39
M560:     M560<-M73<-M1<-Q,  E.E.E     IV_39
M559:     M559<-M73<-M1<-Q,  E.E.E     IV_39
M561:     M561<-M73<-M1<-Q,  E.E.E     IV_39
M550:     M550<-M73<-M1<-Q,  E.E.E     IV_39
M549:     M549<-M73<-M1<-Q,  E.E.E     IV_39
M569:     M569<-M73<-M1<-Q,  E.E.E     IV_39
M563:     M563<-M73<-M1<-Q,  E.E.E     IV_39
M568:     M568<-M73<-M1<-Q,  E.E.E     IV_39
M562:     M562<-M73<-M1<-Q,  E.E.E     IV_39