>perl -lE"my @a1 = 'aaa' ~~ /.(?{ print 'X' })/g;"
X

>perl -lE"my @a1 = 'aaa' =~ /.(?{ print 'X' })/g;"
X
X
X