if($line =~ /\bBLUBB(?:ER)?\b/ and $line !~ /\bSAND\b/){
    push(@data,[@array]);
}