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