my $covCounter = 0; open(EVALUATION, "< $evalFile[0]") or die $!; undef $/; (my $shortFile = ) =~ s/^.+-+ END -+//gs; $shortFile =~ /(?(^(\d+ )+\s+(\d+)+$)(?{$covCounter++}))/gm; close EVALUATION;