#!/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");
 }
}

#! /usr/bin/perl

use strict; # warum? siehe http://wiki.perl-community.de/bin/view/Wissensbasis/UseStrict
use warnings; # um Warnungen zu bekommen

my $file = 'zeilen.txt'; # Deine Ausgangsdatei
my $output = 'worter.txt'; # Deine Zieldatei für die Wörter


# öffnen der Datei zum lesen
# or die $! dient der Fehlerbehandlung. Wenn die Datei nicht
# geöffnet werden kann, bricht das Skript ab ('die') und gibt
# Dir die Fehlermeldung aus ($!)
open(FH,"<$file") or die $!;
# öffne die Zieldatei zum Schreiben
open(WRITE,">$output") or die $!;
while(<FH>){ # solange Zeilen aus der Datei gelesen werden
  chomp; # entferne das Newline
  my @worte = split; # splitte die Zeile in Worte
  foreach my $wort(@worte){ # für jedes Wort
    print WRITE $wort,"\n"; # schreibe das Wort und einen Zeilenumbruch in die Zieldatei
  }
}
close WRITE; # schließe den Filehandle
close FH; # schließe den Filehandle