while ('abxxxacdxxxae' =~ /a([^x]+)/g) {
   say $1;
}

##</code><code>##

'abcd' =~ /(.*) (?{ say $1 }) (?!)/sx