$n = 6345789; $n =~ s/\B/+/g; $t = eval $n; # 42 $n = '634-5789'; $n =~ s/\B/+/g; $t = eval $n; # 32