my $Str = "AAAA001BBBB001CCCC000DDDD023EEEE012";
my %H;

while($Str) {
    my $s = substr($Str, 0, 4, '');
    my $i = substr($Str, 0, 3, '');
    %H{$s} = $i;
    }