# alle Zeilen, die denString "WLAN" NICHT enthalten
my @array = grep { index($_, "WLAN") < 0 } <$HANDLE>;