#!perl -pla $=-=$_+=$=for$=,(@F)x11;$_=$=