if ( $line =~ /dashier/ and $line !~ /dasnicht/ ) { ....