use strict;
use warnings;
use 5.012;

if ('aXaYaZ' =~ /(a[XYZ])/ ) {
    say $1;
}

--output:--
aX