#!/usr/bin/perl
use strict;
use warnings;
use Fcntl qw(:flock);                                                           
my $CE_PMID = 'g2222222' ;                                            
my $RTBL_CD_NODE_CONST = '\|mvs\+VSPMVSPNODE' ;         
my $CE_ROUTE_TABLE = "/edi/cdunix/ndm/bin/Rout.Tbl";                  
my $RTBL_ENTRY_DEL = $CE_PMID . $RTBL_CD_NODE_CONST;                                                                            
  for (<DATA>) {s/$RTBL_ENTRY_DEL//g;print};                                     


__DATA__
o2130338|mvs+VSPMVSPNODE
g2139819|mvs+VSPMVSPNODE
g2113717|mvs+VSPMVSPNODE
o2156228|mvs+VSPMVSPNODE
o2170511|mvs+VSPMVSPNODE
o2174150|mvs+VSPMVSPNODE
o2194340|mvs+VSPMVSPNODE
o4199702|mvs+VSPMVSPNODE
g2345678|mvs+VSPMVSPNODE
g2222222|mvs+VSPMVSPNODE