#! perl -nwa BEGIN{$last=-3} $a=($F[0]-$last)/2; $b=$F[1]; #print "$a $F[1]\n"; # amin is 1, bmin is 2 #amax,bmax is 70-ish $a+=31; $b+=31; print pack("CC",$a,$b); $last=$F[0];