如何在正则表达式中结合正面和负面条件？

I fairly new to regular expressions and need some help. I need to filter some lines using regex in Perl. I am going to pass the regex to another function so it needs to be done in a single line.I fairly new to regular expressions and need so