@matches=$string=~/(K|R)/g;<br>
	foreach $a(@matches)
	{
		print index($string, $a)."\n";
	}