>perl -wMstrict -le
"my $s = '12ab34cd56ef78';
 my @pairs;
 push @pairs, [ $+{A}, $+{B} ]
   while $s =~ m{ (?<A>[[:alpha:]]) (?<B>[[:alpha:]]) }xmsg;
 use Data::Dumper;
 print Dumper \@pairs;
"
$VAR1 = [
          [
            'a',
            'b'
          ],
          [
            'c',
            'd'
          ],
          [
            'e',
            'f'
          ]
        ];