#!perl -lpa s/\B/+/gwhile($_=eval)>9;$_="digital_root(@F)=$_"