#!/perl/bin/perl
use strict;
use warnings;
use Data::Dumper;

my $str     = '123456789100020003000400050006000';
my $pattern = 'A9(A4)*';
my @values  = unpack($pattern, $str);

print Dumper(\@values);