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