$a =~ s/\$\$NETOBJ\.// or die "$a is not right: $!";