my @filtered = grep { !m/(?:mykeyword|\*\*\*END\*\*\*)/ } ; print @filtered; __DATA__ mykeyword1 ***END*** mykeyword2 ***END*** mykeyword3 ***END*** mykeyword4 ***END***