perl -le '$_="Just another Perl hacker";/e/;sub AUTOLOAD{eval qq{sub ${(caller"Just")[scalar(()="a coke please"=~/e/g)]}}.qq}{(caller"Just")[scalar(()="give me a coke"=~/e/g)]=~m(([^\072]*)\$)\x7d};&${(caller"Just")[scalar(()="coke, no more pepsi"=~/e/g)]}};print+(join$",map{join$,,map{eval"main::$_()"}split//}split),","'