#/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.