Select Code to Download

$str = "abc.def.ghi.jkl";
$str =~ s{
  .*     # match as much as you can
...
                \K    ""
           B    \.    "."
           BCCC .*    ".jkl"

case KEEP:
  PL_regstartp[0] = locinput - PL_bostr;
  break;