in reply to deletion of one line of a particula pattern
perl -ne "print unless /ID:/" datafile
update: perl -i.bak -lne "print $1 if /\((E\d+)\)/" datafile