Listing C
($uid,$pid,$ppid,$c,$rest) = split /\s+/, $_, 5;
if ($rest =~ /^[0-9][0-9]:/) {
       ($stime,$tty,$time,$cmd) = split /\s+/, $rest, 4;
} else {
       ($stime1,$stime2,$tty,$time,$cmd) = split /\s+/, $rest, 5;
}