my $string = "aDescriptor.Type = {\@see Star.Awt.Win#TOP}";
$string =~ s/{\@see\s+((\w+\.)+)(\w+)#(\w+)}/<idl package="\L$1\E" name="$3" anker="$4" \/>/g;