Select Code to Download

c:\@Work\Perl\monks>perl -wMstrict -le
"use List::Util qw(sum);
...
-11
^Z
The total of user-input integers is 115.8

sub total {
  my $u_i = join '', @_;
...
  ;;
  return sum $u_i =~ m{ $n }xmsg;
  }