if ($protein =~ m/(K|R)!P/g)