my ($jcpu,$j,$s)= unpack('@2A16A40x232A16', $line);