#!/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;