my @n = grep s/$_/$count+=$_;$_=$count/e, <DATA>;