Help for this page
REM Windows CMD prompt perl -F: -e "$F[0] =~ s/-/_/g; print join(':',@F);"
# Linux/Unix/Cygwin shell perl -F: -e '$F[0] =~ s/-/_/g; print join(":",@F);'