sub filterCharacters
{
    my $text = shift;

    $text =~ s/[\000-\037]/ /g;
    $text =~ s/[\177-\777]/ /g;
    $text =~ s/\s+/ /g;

    return $text;
}


##</code><code>##

sub filterCharacters
{
    my $text = shift;

    $text =~ s/[\000-\009]/ /g;
    $text =~ s/[\011-\037]/ /g;
    $text =~ s/[\177-\777]/ /g;
    $text =~ s/\s+/ /g;

    return $text;
}