Select Code to Download

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