Select Code to Download

my $ganglia=`ganglia proc_run`;
my @results=split(/\n/, $ganglia);
...
    push @open, $_ if $_=~m/\s{1,}1\s{1,}$/;
    unshift @open, $_ if $_=~m/\s{1,}0\s{1,}$/;
}

foreach ( `ganglia proc_run` )
{
...
    unshift @open, $_ if /\s0\s+$/;
}