$ perl -E'say for unpack "(x4 A X5 A4x/A)*", $ARGV[0]' \
   '0004$ADAM0002*330004%19770004$BOB 0002*430004%1967'
$
ADAM
*
33
%
1977
$
BOB
*
43
%
1967