#!/perl/bin/perl -w

$zaehler= 0;
while ($in =<>) {
    chomp($in);
    if ($in !~/^\s*$/) {
        $zaehler++;
        print "$in\n";
    }
}
print "\nDie Datei enthaelt $zaehler Saetze !\n";