If your data is fixed width then unpack can be quite handy to chop out the data.

while(<DATA>) {
    @bits = unpack "A4A4 A4A4 A4A4", $_;
    print "[$_] '$bits[$_]' " for 0..$#bits;
    print $/;
}

__DATA__
NAME010 DESC025 DATE009
NAME011 DESC035 DATE009
[download]