use strict;
use warnings;

my $zero = "\nZero Active Processors:\n\n";
my $one  = "\nOne Active Processor:\n\n";

foreach ( `ganglia proc_run` )
{
    $zero .= $_ if /\s0\s+$/;
    $one  .= $_ if /\s1\s+$/;
}

print "$zero$one\n";