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

__DATA__
NAME010 DESC025 DATE009
NAME011 DESC035 DATE009