>perl -ane "next unless $F[0]=~/^ZJ/;$count++;$val+=$F[8]}{printf qq|%d values; mean=%.4f\n|,$count,$val/$count" source.file.name.txt
#OUTPUT:
6 values; mean=-1.1958