my $t=<<EOTEXT;
2009122233388675647               9988230       JOE DOE JR
20091222333886756                 99882308K     JOE DOE
EOTEXT
my ($ID, $fld2, $name) = unpack "A34A14A20", $t;
print "ID: $ID\nFLD2: $fld2\nName: $name\n";