For files like this, I tend to use unpack or substr to pull the fields apart. For example:

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";
[download]

To do so, you just count the field widths, and use the widths to unpack the fields. You can do the same with substr, but generally I find unpack to handier.

NOTE: Untested, ...

...roboticus