use strict;

  my $a;

  $a = "\$\$NETOBJ.parameter";

  $a =~ s/\$\$NETOBJ\.//;

  print $a;