while ('abxxxacxxxad' =~ /a(.)/g) {
   say $1;
}