perl -nle 'my$s;$t=$_;s/(\d)/$s+=$1**length/ge;print$t==$s'