Letzte Zeile einlesen

[Stefan]

Hallo,

in folgendem Code wird die letzte Zeile der Eingabedatei nicht bearbeitet.

@target=();
while(chomp($line=<IN>)){
$line=lc($line);
$line=~s/[^a-z0-9 äöüß\n]/ /g;
$_=~s/  / /g;
$line=~s/ ([0-9]+) ([a-z]{0,2})/$1$2/g;
$line=~s/ ([0-9]+)/$1/g;
@target = split(/ /,$line);
push(@dict,@target);}

Alle Wörter der letzen Zeile der Eingabedatei tauchen im Zielarray @dict nicht auf. Warum und wie kann ich das ändern?

Grüße