open FILE,"<$file";
open OUTFILE, ">$tmp_file";
while (<FILE>) {
	s/^ +//;
	s/ +$//;
	s/ +/,/g;
	($bin,$tid,$len)=split /,/;
	$bin = '0'x(6-length($bin)).$bin if length($bin) < 6;
	$tid=substr($tid,-$len,$len);
	print OUTFILE "$bin\t$tid\n";
}
close OUTFILE;