Select Code to Download

$_ = "abc*def*ghi";

...
m/(?: ([^*]+) (?{ push @matches, $^N}) \*?)+/x;

print join('|', @matches), $/;