#!/usr/local/bin/perl

$a = "$$NETOBJ.parameter";

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

print $a;