sub filter {
    my $str = shift or return '';
    return $str =~ tr/A-Za-z0-9.-//cdr;
}