my $resultstring;

	my $resultstring;

	$resultstring = join(" -- ",@stringssummary);

	$resultstring = join(" -- ",@stringssummary);

    $resultstring =~ s/\[(.*?)\]//g;

    $resultstring =~ s/\[(.*?)\]//g;

	$summary      =  $resultstring;

	$summary      =  $resultstring;

  } else {

  } else {

    my $heading; 

    my $heading;