Try this:

#!/usr/bin/perl -w

foreach (@ARGV){ 
       $name = $_ ;
       $name =~ s/_/-/;
       rename($_, $name);
       print "$_ renamed to $name\n";
 } 

usage: renamer.pl *.zzz
[download]

J. J. Horner