in reply to Challenge: Box Blackout

Here's a solution roughly based on tye's description.
<Reveal this spoiler or all in this thread>
Caution: Contents may have been coded under pressure.

In Section Seekers of Perl Wisdom