You might want to look at perlvar for the $/ (input record seperator) especially setting this to a reference to a number e.g.$/ = \266; assuming your fixed records are 226 byte in length.

And then look at unpack() for a cleaner way of extracting the fields.