if (lc $extension ne ("doc" "docx" or "odt" or "rtf")) {
    print
        "Filetype '$extension' not allowed. File extension must be: doc, docx, odt, or rtf";
    exit;
}