perl -lne 'die "Line ", $.-2, "\n" if ($e = length() ? 0 : $e+1) == 2'