Select Code to Download

The value of $RTBL_ENTRY_DEL is:'g2222222|mvs+VSPMVSPNODE'

s/$RTBL_ENTRY_DEL//;

But only the g2222222 is removed leaving the "|MVS+VSPMVSPNODE". I tri
+ed negation of the pipe in the same sustitution line with no success.

#!/usr/local/bin/perl -w                                              
+          
use strict;                                                           
+          
...
  print "Inside flock:$RTBL_ENTRY_DEL\n";                             
+        for (@RTBL_Array) {s/$RTBL_ENTRY_DEL//g};                    
+                 
  close (CE_RTBL)                  || die "Can't close $CE_ROUTE_TABLE
+: $!";    
  } #End of if                                                        
+  } #End of if

o2130338|mvs+VSPMVSPNODE
g2139819|mvs+VSPMVSPNODE
...
o4199702|mvs+VSPMVSPNODE
g2345678|mvs+VSPMVSPNODE
g2222222|mvs+VSPMVSPNODE