perl -n00 -E 'print if m/^E/' your-file-here.txt