Select Code to Download

use strict;
use warnings;
...
}
close IN;
close OUT;

my(@lines) = '/tmp/zea_mays.txt';

while ( defined( my $line = readline \*IN ) ) {
    do {
        foreach $line (@lines) {

                my (@peptides) = split( /(?<=RK(?!P))/, $line );