@fields= unpack 
"xA8x3A5x3A8x3A37x3A1x3A1x2A2x2A1x3A2x3A2x2A6x1"
. "A10x1A10x2A1x3A16", $record;