Perlの正規表現

Perlでしょぼいバッチプログラムを書いているのですが、
「０詰めされた数字の０をとる」の正規表現が面白かったので書いちゃいます。
$a=~s/(?<!\d)0+(\d+)/$1/g ;
だそうです。うまいものですね。
ソースは
http://yamamaya.com/labo/labo3.html
です(やまねこ工房さん、ありがとうございます)。
日ごろPerlは使っていないのでこういう頁があると助かります。
ソースコードの話はあまり面白くないかなと思うのですが、
おもしろかったのでのせちゃいました。