In these times of economic crisis...

We need dollar-free golf!

In order to answer the question "what ratio of words in the SOWPODS wordlist share no letters in common with the word mackerel?", I quickly threw this together:

perl -ne '$c[m/[mackrel]/]++;}print($c[1]/$.,$/);{' < sowpods 

However, there were complaints that it had too many dollar signs.

What's the shortest equivalent script which uses no dollar signs at all?

Phil
-- 
()  ASCII ribbon campaign      ()    Hopeless ribbon campaign
/\    against HTML mail        /\  against gratuitous bloodshed

[stolen with permission from Daniel B. Cristofani]