in reply to match all instances?

$_ = 'LPNTGVTNNAYMPLLGIIGLVTSFSLLGLXKARRD';
print "$1: $-[0]\n" while m/([KR])/g;

[download]

In Section Seekers of Perl Wisdom