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


in reply to [golf] Kaprekar Numbers

Here's a 34 for the rigorous version:
"@_"**2=~/(??{"@_"!=$`+$'&&a})/*$'
(you can make it warning free at the cost of one more character)