Select Code to Download

my $string = "123A1234";
my $regex  = qr/((?<=\d+))(A)\1(.*)/;
...
ok( $num eq '123' );
ok( $letter eq 'A' );
ok( $leftover eq '4' );