my $f1=substr $_,0, 8;
my $name=substr $_, 8, 32;
...etc...