#!/usr/bin/perl -w
open(PH, "ps -A|");
while (<PH>) {
    if (/q3ded/) {
        /\b(\d+)\b/;
        $pid = $1;
    }
}
print $pid;