#!/usr/bin/perl -w
use strict;
my $file = './Pfad/zur/Datei/Datei.csv'; #csv file name
my $suchstring = 'Brand';
open my $fhi, "<:encoding(utf8)", "$file" or die "$file: $!";
while ( my $line = <$fhi> ) {
    print $line;
    if ( $line =~ m/$suchstring/ ){
        print "MATCH: \n" if($line =~ m/$suchstring/);
        last;
    }
}
close($fhi);