[quote=Derunwissende,10.07.2005, 14:31]

Quote

# -----8<-----

my $input;
open($input, "<", "Datei.txt") or die "kann Datei.txt nicht lesen: $!\n";
while(<$input>) {
my ($ip) = $line =~ /IP-Adresse\.((?:\d+\.)+\d+)/;

# ----8<----

[/quote]
Du hast das Codestueck von renee nur in deinen Code kopiert statt ihn einzuarbeiten, das geht natuerlich nur in seltenen Faellen gut, hier zum Bsp. schon mal nicht, eine Variable $line gibt es bei dir nicht ;) .
Und da du strict und -w verwendest solltest du mindestens eine Fehlermeldung bekommen haben weil $line nicht deklariert wurde.
Diese Fehlermeldungen solltest du mit posten.