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


in reply to Re: Reading file and matching lines
in thread Reading file and matching lines

One liner

Prompt> perl -ne ' next if !/^E/; print $_; ' datafile

E99HEADER|006|001
E99INSSCH|052|
E99POLCOM|1||IIL|62|35119849249024|||||
E99INSFAC2|C00124||||||XAJX0727,YGAX0000,ZAAJ0203,VABA0018,WJZA1800|