for(
	'01110011111100111000011100',
	'10000100000001000011100000',
	'11111111100111010111100111',
	'10001100000011000111100010',
	'00001100000011000101100010',
	'00000100000000000001100010',
	'01110100100000001001110010',
	'11011101111110111111111110',
	'11001100010110011111110100',
	'10000000010100011000100100',
	'10000000010100010000100100',
) {
	$c = 0;
	for( split//, $_ ) {
		$o[$c] += (100, 50, 10, 10, 10, 10, 5, 1, 1, 1, 1)[$i]
			if $_;
		$c++;
	}
	$i++;
}

print chr for @o;