Select Code to Download

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