$Beschreibung="das ist creditpoker - ein test mitviagra";
@filter=("poker","viagra","credit","card","pills","com");
foreach $spam(@filter)
{
if ($Beschreibung=~/$spam/)
{
out "ja - $spam gefunden<br>";
}else
{
out "nein - $spam gefunden<br>";
}}

$Beschreibungk = lc($Beschreibung);