@f= glob("*");
foreach (@f){
	$nf= $_;
	$nf =~ s/-/_/g;
	print $_ ." ". $nf."\n";
	rename $_, $nf;
}
