title: Split and add digits
body: <p>If I open a file with strings like "233445", how can I then split that string into digits "2 3 3 4 4 5" and add each one to each other "2 + 3 + 3 etc..." and print out the result.</p>
  
  <p>My code so far looks like this:</p>
  
  <pre><code>use strict;
  
  #open (FILE, '&lt;', shift);
  #my @strings = &lt;FILE&gt;;
  @strings = qw(12243434, 345, 676744); ## or a contents of a file
  foreach my $numbers (@strings) {
     my @done = split(undef, $numbers);
     print "@done\n";
  }
  </code></pre>
  
  <p>But I don't know where to start for the actual add function.</p>