http://www.perlmonks.org?node_id=548598


in reply to Challenge: Hidden Message

Well, here's my first crack at it.

and a few modifications to allow for multiple longest strings, and repeated chars (although, the output still only outputs one of the longest string, but the hash contains the info for each longest string).

It ain't pritty, but it works (I think?).

Update:Oops! Fixed general soultion. Needed to trim roots as well as branches. Thanks LR.