http://www.perlmonks.org?node_id=11101440


in reply to how to escape new line in a string

Like this?
#using activestate perl 5.16.3 use strict; use warnings; s/^INPUT|^ORIGIN|\d|\s//g && print while(<DATA>); # '\s' finds newline +s 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 ccctaaaccctaaaccctaaaccctaaaccctaaaccctaaaccctaaaccctaaaccctaaaccctaaa +ccctaaaccctaaaccctaaaccctaaaccctaaaccctaaaccctaaaccctaaaccctaaaccctaa +acgatgcattactactcacacgaacgagtgaatgaaacaca