I believe that "$!" would make the "or die" even better, by providing information on why the regex didn't check.

If so, that gives you:

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