Scraping top tough?

#! /bin/perl -w

use strict;

my @toplines = `echo q | top`;
my $ok = 0;
for (@toplines) {
  next unless /\w/;
  chomp;
  if (/PID/) {
    $ok++;
    next;
  }
  if ($ok) {
    my($PID,$USERNAME,$THR,$PRI,$NICE,
       $SIZE,$RES,$STATE,$TIME,$CPU,$COMMAND) = split;
    print "$PID $CPU $COMMAND\n";
  }
}
[download]

I know I know your ps solution is great, too ;) I just wanted to show a relatively painless way to scrape top...