#	my @split = split /\n|\r/, $message;
	my @split = split /[\n\r]/, $message;

	foreach (@split) {
		$_ =~ s/^[\n\r]//sig;
		$_ =~ s/[\n\r]$//sig;
		print "BLA ... \"$_\" <br />";
	}