my $regex = qr{WLAN|UND|ANDERES|UNINTERESSANTES};
#my @clean_data = grep { ! $regex }  @data;           # so nicht!
my @clean_data = grep { ! m/$regex/ }  @data;