#!/usr/bin/perl -w

if(! @ARGV > 2)
	{die "Usage: transrename pattern files...\n";}
my @argvc = @ARGV;
my $code = shift(@argvc);
print "\n";
foreach (@argvc)
	{
	my $old = $_;
	eval $code;
	print " $old => $_\n";
	if($old ne $_)
		{
		system("/bin/mv", '-i', $old,  $_);
		}
	}