# FIXME - default normalizer
sub _normalize {
my $value = uc shift;
$value =~ s/[.;:,\]\[\)\(\/'"]//g;
$value =~ s/[\!\?.;:,\]\[\)\(\/'"]//g;
$value =~ s/^\s+//;
#$value =~ s/^\s+$//;
$value =~ s/\s+$//;
-