#!/usr/local/bin/perl

open (F, "textfile") or die "Could not open file: $!";

$a = <F>;

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

print $a;