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