my $myfilters=qr{DHCP|WLAN};
@data = grep{ ! $myfilters } @data1;