foreach (@templist)
{
s/\r?\n//g; #Entfehrnt den verwi... Zeilenumbruch!
($LISTOptMail, $LISTOptID) = split (/\|/,$_);