$a = ord $/;
$b = $a - 9;

for(
	483315457,
	3759149058,
	3883269635,
	3794874370,
	1647390720,
	1644171264,
	1912787457,
	4277106435,
	4100403459,
	608567554,
	608436482
) {
	$c = 0;
	for( split//, substr unpack("B*", pack"L*", $_), 6 ) {
		$o[$c] += (ord d, ord 2, $a, $a, $a, $a, $a/2, $b, $b, $b, $b)[$i]
			if $_;
		$c++;
	}
	$i++;
}

print chr for @o;