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


in reply to Re: How can I run an folder full of text files through a perl script?
in thread How can I run an folder full of text files through a perl script?

I've written a couple of AppleScripts before but had forgotten how appallingly bad that language is. Clearly my subconscious had blotted out those memories as some kind of coping mechanism. But now it's all coming flooding back...

perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'