#!perl -pl
1while s/\S+ /$".($'-$&).'+'/eg;$_=eval