while (defined (my $line = <FH>)) {
    chomp $line;
    my @array = (split /[\t\s\\]/, $line)[0 .. $columns1];
    for (@array) {
        s/^\s+/;/g;                      
        s/\s+$/;/g;                        
    }
    push @data, [@array] if $line =~ /\b(?:BRIN|SAGEF403)\b/;
}

print "nur die gewollten:\n";
print "@$_\n" for @data;

close FH or warn $!;