$subject =~ s/\s/ /g;
die ('Bitte keine Steuerzeichen verwenden') if ($subject=~ /[\n\0\t\r\0\|]/);