#!perl -pl
$h=$k=$l=0;s/(-?)(\d?)(.)/'$$3+=$1.($2||1)'/gee;$_="$h $k $l"