perl -MData::Dumper -wle '%e = reverse "a1b2a3b4" =~ m/(\w)(\w)/g; print Dumper \%e;'
$VAR1 = {
          '1' => 'a',
          '4' => 'b',
          '3' => 'a',
          '2' => 'b'
        };