use strict;
use warnings;

my $string = "aDescriptor.Type = {\@see Star.Awt.Win#TOP}";
print( "Original:$string\n" );
$string =~ s/
             {\@see\s+((\w+\.)+)(\w+)\#(\w+)}
            /
             "<idl package=\""
             . lc($1)
             . "\" name=\"$3\" anker=\"$4\">"
            /gex;
print( "Updated:$string\n" );

##</code><code>##

Original:aDescriptor.Type = {@see Star.Awt.Win#TOP}
Updated:aDescriptor.Type = <idl package="star.awt." name="Win" anker="TOP">