my ($jcpu,$j,$s)=(unpack('@2A16A40A232A16', $line))[0,1,3];