3
# Copyright 2002 by Joey Hess under the terms of the GNU GPL.
5
# Yes, this program is self-modifying code, if you want it to be.
6
if (exists $ENV{ADD_WORD}) {
7
open(IN, $0) || die "cannot read myself";
10
open OUT, ">$0" || die "cannot write myself";
14
open(DATAOUT, "|sort|uniq|column >> $0");
15
$ENV{ADD_WORD} =~ y/n-za-m/a-z/;
16
print DATAOUT "$ENV{ADD_WORD}\n";
17
print DATAOUT join("\n",
18
map { chomp; split ' ', $_ } <DATA>);
25
$censored = join("|", reverse sort { $a cmp $b }
27
map { chomp; y/a-z/n-za-m/; split ' ', $_ } <DATA>);
30
s/\b($censored)ed/CENSORED/ig; # don't say "CENSOREDed"
31
s/\b($censored)/CENSORED/ig;
36
ahqr enaql gjng pbpx t-fcbg
37
anxrq encr grng pbzrvat t\f+fcbg
38
avccyr erne guebng pbzvat tebva
39
bcravat fangpu gvg pebgpu ubbgre
40
beny fchax gvggl penc ubeal
41
betl fcrez gvggvr penpx ubyr
42
betnfz fcuvapgre hgrehf pernz uhzc
43
certanag fghq ihyin phag unaqwbo
44
cevpx fgnss intvan phz urnq
45
chff fhpx ivetva phzzvat wvfz
46
chffl fjnyybj ivoengbe pnzr xabo
47
chffvrf fperj jbzo preivk xvff
48
chovp frk jrg pureel ybir
49
chqraqhz frkhny juber pyvg ybire
50
chzc frrq kkk pyvgbevf ybirq
51
cnagvrf frzra nany pyvggl ybnq
52
crargengr funsg nerbyn pyvznk ynovn
53
crargengrq funt nff qevyyrq ynvq
54
cravf funttvat nffubyr qrsybjre yrfovna
55
crgre fuvg obbo qvpx yvcf
56
crpxre fvrt\furvy oernfg qvyqb znfgheong
57
cunyyhf fyhg ohgg rebgvp znfgheongr
58
cvff fyhggvfu ohggbpx rerpgvba znfgheongvat
59
ebfrohq fyvg onyy rkcbfrq znzznel
60
ebq gbathr ovgpu shpx znzznevrf