sub secure_query
{
    $_ = shift;
    s/\-+(.*)/$1/g;
    s/(.*)[ \t]+\-(.*)/$1$2/g;
    tr/\$\'\`\"\<\>\/\;\!\|/_/;
    return($_);
}#End secure_query