#!perl -pl
print,s/\d+/abs$&-($'||$_)/gewhile!/0 0$/;$_.=$/