Danke jetzt klappts :)

musste aber das hier umändern das es ging

$messages = join "\0x\0d", @$message, '';
$messages = join "", @$message;