Select Code to Download

use strict;
use warnings;
...
    print join '', @parts[$start .. ($end * 6 - 1)], "\n";
    $start = $end * 6;
}

use strict;
use warnings;
...

@parts = $str =~ m/((?:[^KR]*[KR]){3})/g;
print "@parts\n";