#!/usr/local/bin/perl

# Usage: rename <perlexpr> [files]

($op = shift) || die "Usage: $0 <perlexpr> [files]\n";

chomp(@ARGV = <STDIN>) unless @ARGV;

for (@ARGV) {
    $was = $_;
    eval $op;
    die $@ if $@;
    rename($was,$_) unless $was eq $_;
}

##</code><code>##

  rename 's/\.bak$//' *.abc

##</code><code>##

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

  rename 's/$/.bak/' *

##</code><code>##

  rename 'tr/A-Z/a-z/' *

##</code><code>##

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

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

  find . -print | rename 's/$/.old/ if -M $_ > 0.5'

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