# remove extra spaces
  my $fields = () = $summary =~ /[\s+,:]/g;