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