foreach (sort(<*>)) { $a = $_; s/ /_/g; s/(%20)/_/ig; s/(%25)//ig; $_ = lc($_); rename("$a", $_); } [download]
In reply to Filename fixer by spm