if (length($_)>10) {
        $readlines++;