in reply to What is the best way to parse a 488 byte record?

The best way is probably with unpack. See the Fixed-Length Fields Question discussion. 
@result = unpack "A16A20A20AA8",$input;

[download]

In Section Seekers of Perl Wisdom