sub clean {
    my $s = unidecode(shift);
    $s =~ s/[^A-Za-z0-9'-]+/ /g;
    return $s;
}