$string |= join '', map chr( $_ ? 0 : 040 ), @array;