Hallo zusammen,

möchte aus einer Datei immer das zweite Wort einer Zeile ausgeben wenn die Zeile mit dem Wort "ein" anfängt.
Mit dem nachstehenden Code lasse ich mir das gefundene Wort ausgeben. Leider gibt $1 auch einen Wert aus obwohl die Zeile nicht mit "ein" anfängt und zwar den Wert den $1 als letztes erfolreich gefunden hat. Wie kann ich das verhindern, schliesslich soll $1 keinen Wert enthalten wenn die Zeile nicht mit "ein" anfängt.

Bei $& funktioniert es dass nur der Wert der gefunden wurde ausgegeben wird, und wenn "nichts" gefunden wird dann wird auch nichts ausgegeben.

foreach(@quelldatei)
{
$_ =~ /^ein (\w+) /;
$zweites = $1;
print "\n$zweites";
}

Danke im vorraus
rommi