Perlワンライナー：ファイル名一括置換

（2010/02/24perlfreak.vox.comより転載）

同一ディレクトリ内のファイルの拡張子「.txt」を「.sql」に置換する例。

$ find . -name \*\.txt | perl -nle '$o=$_;s/\.txt$/\.sql/;rename $o,$_'