until (substr($botschaft_hex,0,10) =~ m/f{10,}/ && $botschaft_hex !~ /f{32,}/)
   {