In LINUX terminal or in a perl script

Code:

$ rename 's/-/_/' *.jpg

See $ man rename
or Perl Cookbook 9.9. Renaming Files

There is a Windows terminal command that will do the same thing also