sub whiten { local $_ = unpack "b*", pop; tr/01/ \t/; ... }