http://www.perlmonks.org?node_id=473535


in reply to Re^2: [golf] Kaprekar Numbers
in thread [golf] Kaprekar Numbers

Like this it's 34:
(pos=$_="@_"**2)/=2;//g;$`+$'==pop