求：正则表达式代码解决办法

求：正则表达式代码
编辑文本时，希望将不包含某一组词汇的行全部删除，比如：删除所有不包含“北京”且不包含“上海”的行。

非常感谢！

[解决办法]
if(!($str =~ /北京/ || $str =~ /上海/))
{
#删除
}
[解决办法]
这个是比较困难的。