my @fields = unpack('A34 A30 A40 ...', $string);