if ( length($_) > 1000 ) { 
   print "Überlange Zeile gefunden mit ".length($_)." Zeichen.\n";
   print substr(0,1000,$_)."..."; 
   exit; }