Select Code to Download

my $string = "RYOURPOSTBROKEN";

...
   my @arr = $string =~ /$re/g;
   print("$re: @arr\n");
}

input:     RYOURPOSTBROKEN
expecting: R YOURPOSTBR OK EN
...
(?s-xim:(.*?[KR])(?!P)): R YOURPOSTBR OK
(?s-xim:[^KR]+.(?!P)): YOU POSTBR OK EN
(?s-xim:[^KR]*.(?!P)): R YOU POSTBR OK EN