$(gsub(/[aeiouAEIOU]/,1)*40/gsub(/[^ ] ?/,_))="*"