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