As it turns out, each line of the file represents one type
of quote and the format and the format, while consistent for 
each quote type, varies from type to type. In other words,
one line may have five fields and the next line may have
eight.
##</code><code>##

while(<DATA>)
{
  chomp;
  my @line = split(',',$_);
}

##</code><code>##

#!/usr/bin/perl

while(<DATA>)
{
  chomp;
  /^$/ and next;
  my @line = split(/,/,$_);

  for(@line[1..(@line-3)])
  {
    /\d+\.[\d]{4}/ or next;
    printf("%s\t%s\n",$line[0],$_);
  }

}

exit;