Select Code to Download

my @oldlist = qw X /etc/passwd /etc/group /etc/shadow X;

my @newlist = map  s/\/etc\/// ,  @oldlist;

$         
$ cat t.pl
...

1
$

$ cat ta.pl
#!/usr/bin/perl
...

1
$

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

$ ./tb.pl 

...

1
$

$ cat tc.pl 
#!/usr/bin/perl
...
/egg/drop
shadow
$