0 から 1,000 までの 0 の数を数える

• 0 から 1000 までに含まれる ‘0’ を数える (渋木宏明(ひどり) Weblog )
• 0から1000までの0の数を数える （デジタルちんぶろぐ）
• 前フリチックにGo-Lang、片桐風味を添えて、〜その3〜 （すいません、VB４しかやってないんです、VBAはやったけど（ぼそ））

C# の例は既にひどりさんが書かれているので、例によって Perl で。

$a=0;$a+=s/0/0/g for(0..1000);print $a

golf に挑戦する気は無かったんですが、それなりに短く書けました。
（ 2010-07-23 追記）
タイトルで「 0 から 1,000 まで」って書いているのになぜかプログラムが 1 〜 1,000 になっていたので修正。
何を寝ぼけていたんだろうか。。。