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

A short JAPH, maybe I could use this as my new sig, if the grue's get bored and goes home? For once, this one will explode on warnings and strict, something I usually don't allow. :)
#!/usr/bin/perl -p BEGIN{*{$*}=$*=~s**\Uargv**$*{$*}=~s**data*?uc$*{$*}:*=}__END__ Just another perl hacker.
See if you can figure it out - shouldn't be too hard. :)
You have moved into a dark place.
It is pitch black. You are likely to be eaten by a grue.