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