+ my $bwfn = localdata("badword");
+ filecopy("$main::data.issue", $bwfn) unless -e $bwfn;
+
+ my @out;
+
+ $badword = new DXHash "badword";
+
+ push @out, create_regex();
+ return @out;
+}
+
+sub create_regex
+{
+ $regex = localdata("badw_regex");
+ filecopy("$regex.gb.issue", $regex) unless -e $regex;
+