Demonstration Des Valeurs Cachˇs.

print "query = $query. 
\n";

($field, $value) = split(/=/, $query);

print "field = $field, value=  $value. 
", "\n";

@mots = split(/\+/, $value);

print "Les most sont : ";

foreach $mot (@mots)
{
	print qq("$mot", ) ;
}