perl -pi -e '($match) = m/^([^:]+)\:/; $ds = $match; $ds =~ s/\-/\_/g; s/$match/$ds/' *.config