#using activestate perl 5.16.3 use strict; use warnings; s/^INPUT|^ORIGIN|\d|\s//g && print while(); # '\s' finds newlines as well __DATA__ INPUT ORIGIN 1 ccctaaaccc taaaccctaa accctaaacc ctaaacccta aaccctaaac cctaaaccct 61 aaaccctaaa ccctaaaccc taaaccctaa accctaaacc ctaaacccta aaccctaaac 121 cctaaaccct aaaccctaaa cgatgcatta ctactcacac gaacgagtga atgaaacaca #### OUTPUT: C:\Users\James\Desktop\pm\>pm.pl ccctaaaccctaaaccctaaaccctaaaccctaaaccctaaaccctaaaccctaaaccctaaaccctaaaccctaaaccctaaaccctaaaccctaaaccctaaaccctaaaccctaaaccctaaaccctaaaccctaaacgatgcattactactcacacgaacgagtgaatgaaacaca