$a = '$$NETOBJ.parameter';
(undef, $a) = split(/\./, $a, 2);
print $a;