REM Windows CMD prompt
perl -F: -e "$F[0] =~ s/-/_/g; print join(':',@F);"