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