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