Perlによるファイル名の一括置換

RICOH R10の設定で，ファイル名を一括してリネイムするのに，次のPerlのスクリプトを使った。

#! /usr/bin/perl
foreach $file (<*>) {
  $name = $file;
  $name =~ s/R001/R101/;
  system("mv $file $name");
}