$ perl -wE 'my $str = "Charles 25 24 26"; my ($name, @vals) = split /\s+/, $str; $sum += $_ for @vals; say $sum / @vals;'
25

##</code><code>##

$  perl -wE 'my $str = "Charles 25 24 26"; my ($name, @vals) = split /\s+/, $str; my $sum = 0; $sum += $_ for @vals; say $sum / @vals;'
25