my ($f1, $name, $num, $f, $g, $h) = unpack "A9A30A9A2A2A2", $_;

##</code><code>##

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