For a while, all the winning solutions on the Perl golf site (not available, last I checked :-() were substitutions-within-substitutions. So my conjecture is that this comes from a golf. Or someone who is very golf-oriented.
Caution: Contents may have been coded under pressure.