gistfile1.txt

# walk down a file until you get to the data section, then suck it in
# (presumes data section is preceded by a row of separator-dashes. :)
while(<>) {
  chomp;
  until (/--------------------     ------------------/) { ; } # do nothing until we get these
  while(<>) {
    chomp;
    ($object_id, $description) = ($1, $2) if m/(\d+)\s+(\w+)/;
    print "$object_id, $description\n";
  }
}