print "Data: ".$_."\n";
  if(index($_,"<MenuMacro") == 0){
    print "\n\n---- Befehl anfang ----\n" if $config{debug} == 1;
    $cuix{UID} = $_ =~ m|<.*UID="([\da-zA-Z.]+)"[^>]+>|i;
    print "UID: ".$cuix{UID}."\n";
    $count_block_start++;
    }