my @ar = $t1 =~ /(..)/g;
	$foo->delete("1.0","end");
	foreach (@ar) {
		$foo->insert("1.0",chr(pack("H*",$_)));

	}