Select Code to Download

#!/usr/local/bin/perl

# Usage: rename <perlexpr> [files]
...
    die $@ if $@;
    rename($was,$_) unless $was eq $_;
}

  rename '$_ .= ".bak"' *

  rename 's/$/.bak/' *

  rename 's/foo/bar; $_ = $was if -e' *foo*

  find . -print | rename 's/readme/README/i'
...

  find . -name '*,v' -print | \
    rename 's#(.*)/#$1/RCS#, $x{$1}++ || mkdir("$1/RCS", 0777)'