See if you can figure it out - shouldn't be too hard. :)#!/usr/bin/perl -p BEGIN{*{$*}=$*=~s**\Uargv**$*{$*}=~s**data*?uc$*{$*}:*=}__END__ Just another perl hacker.
In reply to From the BEGIN{ning to the} __END__ by Dog and Pony
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |