my $botschaft_bin = "\x00" x 16;
    until (substr($botschaft_bin,0,10) eq "\xFF" x 10 && $botschaft_bin ne "\xFF" x 16)
   {
   ...