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