#!perl -lp $_="digital_root($_)=".($_%-9+9)