@processes = map { (m@^(\d+)\s+\S+\s+\w+\s+[\d:]+\s+(.+)$@) && ($process = $1) && ($name = $2) && ($name =~ /q3ded/) \&& ($name =~ /\+exec $type/) ? $process : () } `ps ax`;