$n = 6345789;
   $n =~ s/\B/+/g;
   $t = eval $n; # 42

   $n = '634-5789';
   $n =~ s/\B/+/g;
   $t =  eval $n; # 32
[download]

PerlMonks parthenogenetically spawned by Tim Vroom.
PerlMonks is a proud member of the The Perl Foundation.
Marvelous Managed Hosting and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.