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