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

##</code><code>##

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