foreach my $line (@lines) {
  next unless $line =~ /^ein\s+(\b\S+\b)/;
  print "Word ist: $1\n";
} # foreach