$ touch data/{1..5}\ with\ spaces.dat
$ perl -le'for(<data/*.dat>){print}'
$ perl -le'for(<data/*.dat>){$o=$_;tr/ /_/;print}'
$ perl -le'for(<data/*.dat>){$o=$_;tr/ /_/;rename $o,$_}'