#!perl -palF\D $_=@F[-1]-@F[1]