use warnings;
use strict;
use Statistics::Descriptive;

open (INFILE, '<wwertenewgene.txt') or die "Opening input file failed: $!\n";
open (OUTFILE, '>TEST.txt'); 


#my $linenumber = 0;
while (<INFILE>)
{
foreach (/start/../end/)
{
my @gene = $_;
next if /start/||/end/;
print OUTFILE "@gene";

# if (<INFILE> =~ m/final/ ){last;}
# do
# {
# print "$linenumber";$linenumber++;
# }
# until ($newgene =~m/newgene/);
}
# print OUTFILE "hallo\n";
}

#print 'Geometrischer Mittelwert: ',
#$stat->geometric_mean(), "\n";