1:foreach (sort(<*>)) {
2:        $a = $_;
3:        s/ /_/g;
4:        s/(%20)/_/ig;
5:        s/(%25)//ig;
6:        $_ = lc($_);
7:        rename("$a", $_);
8:}