#!/usr/bin/perl 
use strict; 
use warnings; 
my $string = '0004$ADAM0002*330005LTESTL0005STESTS0005JTESTJ0005ZTESTZ';
my $len1 = substr $string, 0, 4;
my $type = substr $string, $len1, 1;
my $fragment = substr $string, $len1+1, $len1;
my $nextpos = $len1+5;
print " string: $string\n";
print " 1st data length: $len1\n";
print " data: $fragment\n";
print " type: $type\n";
print " next record lenth pos: $nextpos\n";