find . -type f | perl -pe 'print $_; s/_/-/g' | xargs -n2 mv
rename -v -n 's/_/-/g' *
-v, --verbose
Verbose: print names of files successfully renamed.
-n, --no-act
No Action: show what files would have been renamed.