#!/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 $_;
}