my $file = "C:\\Dokumente und Einstellungen\\ich\\Anwendungsdaten\\tor\\test";

# immer angeben, was Du machen willst:
#  < = lesen
#  > = schreiben
#  >> = anhaengen
# 3-Arg-Form von open verwenden
# Fehler abfangen ( or die $! )
open (FILE, '<', $file ) or die $!;
while (my $line = <FILE>)
{

    # bei Regex auch auf Erfolg pruefen
    # nicht so gierig sein, als ? verwenden
    if( $line =~ /router\s(.*?)\s(.*?)\s(.*?)\s(.*?)\s(.*?)/ ){
        print "$2\n"; # name
    }
}
close (FILE);