$(40*gsub("[AEIOUaeiou]",0)/(length-NF+1))=NF="*"