#!/usr/local/bin/perl -w

$a = "$$NETOBJ.parameter";
print ">>$a<<\n";
$a =~ s/\$\$NETOBJ\.//;

print $a;

##</code><code>##

$a = "$$NETOBJ.parameter";

if ($a =~ s/\$\$NETOBJ\.//) {
	print $a;
} else {
	print "Substitution failed.\n";
}

##</code><code>##

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