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