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

##</code><code>##

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