#!/usr/bin/perl

#
# Usage: perlren perlexpr [files]
# 
# Rename files according to a Perl regular expression; originally
# called simply "ren" but full origin unknown; dates back to the 1990s
#
# Anthony Thompson, June 2010
# Contact: put @ between art and sigilservices.com
#

($op = shift) || die "Usage: $0 perlexpr [filenames]\n";
if (!@ARGV) {
    @ARGV = <STDIN>;
    chop(@ARGV);
}
for (@ARGV) {
    $was = $_;
    eval $op;
    die $@ if $@;
    rename($was,$_) unless $was eq $_;
}