Saw this one today

BEGIN{$^H {q}=sub:{my$ my=$ _[1];$ my!~ /\$/?$ my:sub: {my% my=@_;(my$ my=$ my)=~s '\$(\w+)'$ my{$ 1}'eg;$ my}};$ ^H |=0x28000} 'The quick blue fox $action over the lazy dog.'->(action => 'jumps')

The code returns: The quick blue fox jumps over the lazy dog.

Awesome and painful at the same time.

4 Responses to “Saw this one today”

  1. gavyn_lumier says:

    Dare I ask which language? That’s an awful lot of instance self-referencing.

  2. cooner says:

    Why the quick “blue” fox tho?

    It seems the resulting expression is lacking a “w” and an “n,” which sorta negates the whole point of the sentence. 🙂

  3. Phil says:

    The big muscular coyena….

Leave a Response