$_,*b=*$<;eval gsub /\S+/,'b[\&-1]*=2;';$><<b