use strict;
use warnings;

for my $datafilename (@ARGV) {
    open my $datafh, '<', $datafilename or die "cannot open $datafilename: $!\n";
    my $error=0;
    while(my $line = <$datafh>){
        chomp $line;    
        my $first_char = substr($line, 0, 1);
        if (length($line) != 78 && $line !~ /^\s*$/ && $first_char != chr(26)) {
            $error=1;   # setze Fehler-Flag
            last;        # ueberspringe Rest der Datei
        }
    }
    # Evtl. Namen der fehlerhaften Datei ausgeben
    if ($error) {
        print "File $datafilename ist fehlerhaft!\n";
    }
}