#!/usr/bin/perl -w
#
#
#
#
############################
my $filename="zeilen.txt";
my $line;
my @liste;
open (EINGABE,$filename);
while ($line =<EINGABE>)
{
 chomp ($line);
 
 if ($line=~ m/[A-Z ÄÖÜß a-z äöü].*/)
 {
  
  print ("$line \n");
 }
}