$srcfile = "SENSHU.DAT";

$hlen = 0x10;
$slen = 0xD4;
$maxsen = 200;

open(SEN, $srcfile);
binmode(SEN);
read($sdata, -s $srcfile);
close(SEN);

@sarr = unpack("C*", $sdata);

for($i = 0; $i < $maxsen; $i++){
	@dsarr = @sarr[($hlen + $slen * $i)..($hlen + $slen * ($i + 1) - 1)];
	$dname = pack(@dsarr[17..33]);
	$dfam = pack(@dsarr[34..50]);
	$outfile = sprintf("s$i"."$dname"."_"."$dfam");
	open(OUT, $outfile)
	print 

}



16+1 +16+1 + 16+1