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