perl -ne "chomp;last if $_ <0; push @val, $_}{@s=sort {$a<=>$b} @val;print qq||,($s[$#s/2+0.1]+ $s[$#s/2+0.6])/2,qq|\n|"