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

It sounds like all you need is this: 
$out=join(";", unpack("A2A4...", $rec));

[download]

In Section Seekers of Perl Wisdom