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 reply to (jeffa) Re: rename files using regex. by jeffa
in thread rename files using regex. by djbiv

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.