sub ::(Just{another}Perl{Hacker}){($,=>$\)=(q q q=>q q q)=>prototype\&::}print split q q\{([^\}]+)\}q=>eval{eval qq:&\:\::} [download]
-- Casey
In reply to funky by cwest