Added 6/21#!/usr/local/bin/perl use strict;sub mm{my $p=(q+1249211252m+.q-541159023a-. q*1952998770r*.q!542139762c!.q^1814055009u^.q/1667982706s/); return sub{pack(shift,split(/[a-z]/,$p))}}my$q=mm;print $q->("l*");
Quiz:Anyone want to guess what my first name is? Shouldn't be too tough...
In reply to an obfuscated closure by Maestro_007
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |