nurulnad:

If the input file is fixed format, as the two sample lines indicate, you can even extract the fields using unpack:

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

or substr:

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

...roboticus