> 正規表現で置換しようとして上手くいかないんだけど
> 何が悪いの？(;´Д`)
> 例えば 12-3.jpg を 12-03.jpg にしたいんだけど
> 12-04.jpgはそのままで
> [-].[.]jpg → [-].0[.]jpg

$fname =~ s/(\d\d)-(\d)\.jpg/\1-0\2.jpg/g
Perlならこれでいけるかなぁ(;´Д`)

参考：2010/12/30(木)11時25分30秒