Select Code to Download

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

my $foundend;
while (<file>)
...
   # ...
 }
print "found\n" if $foundend.