$!=get;$/=[|@($/=words),$0,$1];say sum map {my (\a,\b,\c,\d)=$/[^4+$_*2];a*d -b*c},^$!