if ($protein =~ m/(KR)!P/g)