#!/usr/bin/perl -w
use strict;
my(%list);
open(PH, "ps aux|");
while (<PH>) {
    if (/q3ded/) {
        /\b(\d+)\b.*:(.{3})(.*)/;
        $list{$1} = $3;
    }
}
close(PH);
foreach (keys %list) { 
    print $_, " ", $list{$_}, "\n";
}