perl -e 'for (<*>){ my $f= $_; tr/, -/_/s; rename $f, $_}'

##</code><code>##

perl -e 'for (<*>){ my $f= $_; tr/, -/_/s; tr/A-Z/a-z/; rename $f, $_}'