#!perl -p
s/.*/"digital_root($&)=".($_%9||9)/e