s/sed/perl/

procs is a function
procs ()
{
ps -ef | perl -plane 's{.*$F[6] }{}'
}