foreach my $k (qw(PATH PERLLIB)) {
my @opath = defined $ENV{$k} ? split /\:/, $ENV{$k} : ();
my @npath = grep { $_ ne $strip } @opath;
foreach my $k (qw(PATH PERLLIB)) {
my @opath = defined $ENV{$k} ? split /\:/, $ENV{$k} : ();
my @npath = grep { $_ ne $strip } @opath;