while(<>){print&&(/formula/.../formula/)=~/E0$/&&last}