#!/usr/bin/perl -w
#
# Usage: rename perlexpr [files]
# http://www.evolt.org/article/Renaming_Files_with_Perl/17/351/

my $usage = "Usage: $0 perlexpr [files]\n" .
    "This script does NOT recursively go down into the directory\n";

($regexp = shift @ARGV) || die "$usage";

if (!@ARGV) {
   @ARGV = <STDIN>;
   chomp(@ARGV);
}


foreach $_ (@ARGV) {
   $old_name = $_;
   eval $regexp;
   die $@ if $@;
   rename($old_name, $_) unless $old_name eq $_;
}

exit(0);