#!/usr/local/bin/perl

$total = 0;
while ($line = <DATA>) {
        @nums = split (/\s+/, $line);
        foreach $num (@nums) {
                $total += $num;
        }
}
print ("The total is $total.\n");
__END__
4 17  26
11
9     5
