($f[0],$f[1], $s[0], $s[1])=unpack("A12A12A24A10",$_);