foreach (sort(<*>)) {
        $a = $_;
        s/ /_/g;
        s/(%20)/_/ig;
        s/(%25)//ig;
        $_ = lc($_);
        rename("$a", $_);
}