One-liner: Rename many files



perl -e "rename $_, $_ . '.old' for glob '*.log'"


perl -e "$t = time; rename $_, substr($_, 0, -3) . $t for glob '*.log'"