my ($mean) = $str =~ /total mean for ([-+0-9.]+)/;