while (my $line = <$fh>) {
   if (length($line) == 78 && $line =~ /^[0-9]{4}/) {
      # diese Zeile ist einwandfrei
   } else
      push @s_fail, $line
         unless ord(substr($_,0,1) == 26;
   }
}