<perl>
#-----------------------------------
sub VV
{
@T = @_;
return(\@T);
}

$TAG = qq(<do action=all  db="/bei123.de/test"  indexfield="Name"  subwert=&VV("Wert||Zahl","TEST",167)  Möhre="Haus Garten"  var1=4  Array=[\@TEST]  Lotto=[1,17,22,44,45,48,'12']  Häsch={"Farbe1","#d80000","Farbe2","#c0c0c0"}>);

$Attribute = qq($1);

outl dump(%Attribute); # mal ansehen
#-------------------------------------
</perl>

#----------------------------------------------------------------

 ["A", "s", "D"],
 "var1",
 4,
 "db",
 "/bei123.de/test",
 "Möhre",
 "Haus Garten",
 "Lotto",
 [1, 17, 22, 44, 45, 48, 12],
 "subwert",
 ["Wert||Zahl", "TEST", 167],
 "action",
 "all",
 "indexfield",
 "Name",
 "Häsch",
 { "Farbe1" => "#d80000", "Farbe2" => "#c0c0c0" }

$TAG = qq(<do 

subwert=&VV("Wert||Zahl","TEST",167)

>);