$ perl -E 'say "a+b+c" =~ y/+/_/r'
a_b_c