if ($line =~ /\b(?:BLUBB|BLUBBER)\b/){  
  push @data,[@array];                   
  }
  if ($line =~ /\b(?:[^SAND]\b/){
  push @data,[@array];
  }