Didn't we just see an SoPW node about that sort of problem a little while back?

Probably. There was probably also a JAPH posted based on this idea in the Obfuscated Code section recently. Either that or somebody was playing golf with it, trying to get it under 60 characters for a signature without messing up under scrictures and warnings.

In other words, it's a textbook example of the sort of thing that's cosmically easy to do in Perl, because it's exactly the sort of thing Perl was designed to do easily.