> 30分だな？
> チャレンジ！

30分までのところが30分かかったか。
ま、同じ30分だ、許せ。
foreach $oldname ( glob('ワイルドカードを含むファイル名') ){
	($spec,$ext) = split(/\./,$oldname,2);
	$newname = $spec.'.'.sprintf("%03d",$ext);
	rename $oldname,$newname;
}
exit;

最初の . 以降が数字になってるファイルだけに使える。
必ず3桁の数字にするよ。
つか、これってさっき誰かが書いていた気がするが、ま、こんなもんで。

参考：2000/11/19(日)02時21分02秒