{
nf = 0
while(nf < NF)
	{
      nf++
      if ($nf ~ /\#/ || $nf ~ /\@/ || $nf ~ /\%/ || $nf ~ /\$/ || $nf ~ /\œ/)
		continue
      # omette le stringhe tra # e @
      #
      tabella[$nf]++
      }
}
END {
for(word in tabella)
      {
      z = split(word,fiel,"_")
      printf "%-25s %5d %s\n", fiel[1], tabella[word], fiel[2]
      }
}

# Nel printf il - allinea il $ a sinistra
# s definisce il $ come alfanumerico e d come numerico