sub kap_check {
  ...
}

##</code><code>##

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