如何使用 Perl 轻松批量重命名文件？

我有很多文件正在尝试重命名，我尝试创建一个正则表达式来匹配它们，但即使如此，我仍然卡在文件的命名上，如下所示：

文件名01

文件名 100

文件名02

文件名03

等等，我想在任何小于 100 的文件后面添加一个“0”（零），如下所示：

文件名001

文件名 100

文件名002

文件名003

我最接近匹配它们的是使用这个 find -type d |排序-r | grep ' [1-9][0-9]$' 但是我不知道如何替换它们。预先感谢您可以为我提供的任何帮助。我使用的是 CentOS，如果这有帮助的话，所有这些都是通过 SSH 完成的。

perl -e 'foreach $f (glob("File\\ Name*")) { $nf = $f; $nf =~ s/(\d+)$/sprintf("%03d",$1)/e; print `mv \"$f\" \"$nf\"`;}'

也许有点矫枉过正，但它确实满足了要求。