Select Code to Download

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

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