#!perl -lp
s/./+5-$&/g;$_=eval