Select Code to Download

my @folk = qw(Hibbs Daglish Schwartz Vroom),
           "Node Reaper";
...
my @folk = map {s/_/ /g; $_}
           qw(Hibbs Daglish Schwartz Vroom
              Node_Reaper);

my @folk = (qw(Hibbs Daglish Schwartz Vroom),
           "Node Reaper");
...
my @folk = map {(my $s=$_)=~s/_/ /g; $s}
           qw(Hibbs Daglish Schwartz Vroom
              Node_Reaper);