#!/usr/bin/perl -w
# 

use warnings;
use strict; 
my %hash = ();
while (<DATA>) {
    chomp($_);
	my $n = length($_);
	my $i = 0;
    while ($i<$n) {
        my $long = substr($_,$i,4);
		$i += 4;
        my $delim = substr($_,$i,1);
		$i += 1;
        my $val = substr($_,$i,$long);
		$i += $long;		
#	    print $long,' ',$delim, ' ', $val,"\n";
        $hash{ $delim } .= $val.',';
}    }
s/,\z// for values %hash;

while ( my ($key, $value) = each(%hash) ) {
      print "$key => $value\n";
	  }

print "size of hash:  " . keys( %hash ) . ".\n";
print '-' x (60),"\n"; 

__DATA__
0004$ADAM0002*330004%19770004$BOB 0002*430004%1967
0003$XDA0002*440004%22220003$XOB0002*990004%3333

##</code><code>##

 
Process started >>>
$ => ADAM,BOB ,XDA,XOB
% => 1977,1967,2222,3333
* => 33,43,44,99
size of hash:  3.
------------------------------------------------------------
<<< Process finished.