Darn, no edit facility.

Anyway, amend

    open(BADWORDS,"$badword_file");
[download]

to

    open(BADWORDS,"<","$badword_file") or die "Unable to open badword_
+file: $! \n";
[download]

or similar