open(BADWORDS,"$badword_file"); #### open(BADWORDS,"<","$badword_file") or die "Unable to open badword_file: $! \n";