#!/usr/bin/perl -w
use strict;

while (1) {
 my @a = grep (/ SOMETHING: /, `ps ax 2>/dev/null`);
}
