Select Code to Download

my @statuses = _frobulate_status_processes( );
my $running_frobulators = grep { m/\A Running \z/xi } @statuses;
...
} else {
  print "Only $running_frobulators of ", scalar @statuses, " running\n
+";
}