#/usr/bin/perl -w

use strict;
use warnings;

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

sub checkSpam {
        my $line = shift;
        foreach my $spam_word (@blacklist_entries) {
                while ($line =~ 
                        /(?<=^|\b)\Q$spam_word\E(?=\b|$)/ig # Wort beginnt mit Zeilenanfang und/oder wird mit Wortbegrenzer getrennt
                      ) 
                { 
                        $words{$spam_word}++;
                }
        }
}

while (my $line = <DATA>) {
        checkSpam($line);
}

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.