$O = join qq,, , map { ( $_ )?
chr( 0b1001010+length )
: defined() ? qq- - : 'J'
} @ls;