open(my $fhin, '<', $genpept) or die "open '$genpept': $!";
undef $/;
my $in = <$fhin>;

##</code><code>##

while (my $in = <$fhin>) {
   # ... split etc. done once for each line $in.
}