$N%$_ or$\+=1+($_.($t=$N/$_)ne$t.$_)for 1..sqrt($N=<>);print