Looking at your data my guess is that you are pulling records from an HTML table. Presumably this table has headers for each column. In which case the easiest way to extract your data is to use HTML::TableExtract. Here is an excerpt from the pod:

use HTML::TableExtract;
$te = HTML::TableExtract->new( headers => [qw(Date Price Cost)] );
$te->parse($html_string);
# Examine all matching tables
foreach $ts ($te->table_states) {
   print "Table (", join(',', $ts->coords), "):\n";
   foreach $row ($ts->rows) {
      print join(',', @$row), "\n";
   }
}
[download]

Its a very easy to use and powerful tool. Check it out. (Err, and its useful even if there arent column headers.)

Yves / DeMerphq
--
Have you registered your Name Space?