Hallo Taulmarill,

ich meine warum folgendes nicht geht:

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

das ist doch die kürzeste Schreibweise, ohne if-Abfrage. Leider
gibt mir $1 auch ohne einen Treffer etwas aus. Und das soll natürlich nicht sein.

Komischerweise funktioniert es mit $& ohne Probleme das nur dann etwas ausgegeben wird wenn auch was gefunden wurde.

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

Hoffe ich habs jetzt einigermassen erklärt was ich meine.
Natürlich funzt es mit der If-Abfrage aber die gefällt mir halt nit so jut...

Also wenn keine Alternative gibt dann bitte Bescheid sagen!!

Danke und Gruss
rommi