Some wise old monk, showed us this awhile back, a different approach.

#!/usr/bin/perl

for (split '\n',qx(ps -u $> -o pid,ppid,pgid,user --no-headers)) {
($pid, $ppid, $pgid,$user) = unpack "a5 x a5 x a5 x a20",$_;

print "$pid  $ppid  $pgid  $user\n";

}
[download]