push @lines, $_ unless $where == 1 or $where =~ /E0/;