Select Code to Download

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

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