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