foreach $line ( @rows ) { if ( /marke/ ) { # wird diese Marke nun in $line gesucht? print "ok\n"; }