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

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