my $test = 'AAAA';
my $x1 = $1 if $test =~ s/A/AA/g;
my $x2 = $1 if $test =~ s/A/AA/g;
...