Select Code to Download

while (1) {
    ...
}

while (1) {
  say $1;
}

use strict;
use warnings;
...
--output:--
aX

my @matches =  'aXaYaZ' =~ /(a[XYZ])/g; 
say "@matches";

--output:--
aX