##
$word = qq("$word") if ($word =~ /\s/);
##
##
534 print <##
210 open(TOPIC, ">$topic_file") or die "can't open $topic_file";
218 open(TOPIC, "$topic_file") or die "can't open $topic_file.";
227 open(IDFILE, ">>$id_file");
236 open(IDFILE, $id_file);
354 open FILE, ">$file" or &debug("can't open $file\n") and return 0;