1 while $num =~ s/(\d)(\d)/$1 + $2/e;