#/usr/bin/perl -w

use strict;
use warnings;
use utf8;

my %words;
my @blacklist_entries = qw( insurance Sxx porn buy viagra ZENIC Möbelkauf Bußgeld Führerschein);

my $regexp=join('|',map{qr/\Q$_\E/i}@blacklist_entries);
$regexp=qr/(?<=^|\b)($regexp)(?=\b|$)/;

while (my $line = <DATA>) {
        $words{lc($1)}++ while ($line =~/$regexp/gi);
}

while (my ($key, $value) = each %words) {
        print "$key=$value\n";
}

__DATA__
Das ist ein VIAGRA Text für Viagra.
ViaGrA or Zenic BuY thS!

$VIAGRA!
************ Möbelkauf ganz billig.
$VIAGRA
$VIAGRA:
schnellstmöglich Bußgeld Führerschein neu!
pOr N.

    POrn---------.
 :sxx: download

porN.

vIaGrH.