#!/usr/local/bin/perl -w -i.bak

use strict;

my $kill = join "|", qw{
  wahwah
  blahblah
  yadayada
};

while (<>) 
{
    s/$kill//go;          # remove unwanted strings
    s/^\s+//g;            # blank lines
    print;
}