in reply to rename files using regex.

Looks cool to me. The only recommendation i have sounds trivial at first, but if you get into the habit of using POD for your documentation now, you won't regret it. Here is some POD for your script, just append this to the end and modify to suite your needs: 
__END__

=head1 NAME

rename - larry's filename fixer

=head1 SYNOPSIS

  % rename 's/\.orig$//' *.orig
  % rename 'tr/A-Z/a-Z/ unless /^Make/' *
  % rename '$_ .= "bad"' *.f
  % rename 'print "$_: "; s/foo/bar/ if <STDIN> =~ /^y/i' *
  % find /tmp -name '*~' -print | rename 's/^(.+)~$/.#$1/'

=head1 DESCRIPTION

B<rename> is small script inspired from the "perl cookbook" 
that allows you to pass it a regular expression and 
filenames to apply that regex to. This is available online 
at http://www.perlmonks.org/index.pl?node=277174

=head1 AUTHOR

djbiv

[download]
Now you just type perldoc rename and voila! Instant documentation. This even works if the script is not in your current directory as long it is in a directory that is in your PATH. Check out POD in 5 minutes for more on POD, and definitely take a gander at The Dynamic Duo --or-- Holy Getopt::Long, Pod::UsageMan!. Very useful stuff. :)

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)

In Section Cool Uses for Perl