perl -nE"$s^=$_}{say length$s"