my @newlist = map {
                    my $l = $_;
                    $l =~ s/\/etc\///;
                    my $l2 = $l;
                  }  @oldlist;

##</code><code>##

my @newlist = map {
                    my $l = $_;
                    $l =~ s|/etc/||;
                    $l;
                  }  @oldlist;

##</code><code>##

my @newlist = s|/etc||r, @oldlist;