my $syslog_datei = "/var/log/syslog";

my $nicht_verwenden_regex = qr(WLAN);

my @data;
open (my $fh, "<", $syslog_datei) or die $!;
while (my $line = <$fh>) {
  push @data, $line 
     if $line !~ $nicht_verwenden_regex;
}
close $fh or die $!;