my @subsub = $body->look_down (_tag => "span");
foreach my $sss (@subsub) {
	my $c 	= $sss->attr("class");
	if ($c =~ /name color/)   { $name  = $sss->as_trimmed_text(); }
}