my @folk = (qw(Hibbs Daglish Schwartz Vroom),
           "Node Reaper");

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