#!/usr/local/bin/perl

use strict;

my $a;

$a = "$$NETOBJ.parameter";

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

print $a;