open PS, 'ps -ef -o pid,ppid,pgid,user |' or die;
while (<PS>)
{
  tr/ //s;
  s/^ //;
  print;
}
close PS or die;

##</code><code>##

#!/bin/sh
ps -ef -o pid,ppid,pgid,user | /usr/bin/perl -lape '$_="@F"'