for ( @wtodays )
{
  if (/^(\w+)\s+(\w+)\s+(\w+)\s+([\w\s]+)\s+(\w+)$/)
  {
    $table->addRow($1, $2, $3, $4, $5);
  }
}