#23456789_123456789_123456789_123456789_123456789_123456789_
$_=$_[0]*pop;$==.5*length;/(.{$=})(.*)/;$1+$2==$_**.5