1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
|
#!/usr/bin/perl -p
# debian-tutorial İӷתΪġƺ
#
# ߣ Anthony Fok <foka@debian.org>
#
# ļ Big5 תΪ GB2312
next if /^%/;
while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)/$1/) {}
while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)/$1/) {}
while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)/$1/) {}
while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*(?:||||||))~/$1/) {}
while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)(?<!\<\<)(?!\>\>)/$1/) {}
while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)\<\<\>\>/$1/) {}
s///g; s///g;
s/()?ֵ()?/ıļ/g;
s/(?=ģʽ|༭)/ı/g;
s/Ա/ļ/g;
s/ϵͳ/ļϵͳ/g;
s/Ԥֵ/ȱʡֵ/g;
s/б/ӡ/g;
s//ڴ/g;
s/Ԫʾ/ʾ/g;
s/X~Ӵ/X~/g;
1 while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*(|Ӳ))/$1/);
1 while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)(?<!)ʽ/$1/);
# 1 while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)/$1ں/);
1 while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)ں/$1/);
1 while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)ģ/$1ģ/);
# 1 while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)֧Ԯ/$1֧/);
1 while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)̫(?=)/$1̫/);
1 while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*(|Ӳ|||Zip~))/$1/);
1 while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)Ƭ/$1/);
1 while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)/$1/);
1 while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)/$1/);
1 while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)(?<!\<s\<)(?!>>)/$1ļ/);
1 while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)Ѷ/$1Ϣ/);
1 while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)/$1/);
1 while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)өĻ/$1Ļ/);
1 while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)α/$1/);
1 while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)/$1/);
s/̳ͨ/ʼб/g;
s/ҵϵͳ/ϵͳ/g;
s/Ӵϵͳ/ϵͳ/g;
s/趨/ļ/g;
s//ļ/g;
s/ӳվ/վ/g;
s/ŷ//g;
# hashao ʱ "server" ""
s///g;
# Riser "server" ""
s///g;
s/\<s\<(.+?)\>\>/$1/g;
s/\<t\<ļ\>\>/ĵ/g;
s/\<t\<\>\>/չ/g;
s/\<t\<Ԥ\>\>/Ĭ/g;
s/\<t\<֧Ԯ\>\>/֧/g;
#
sub changewww () {
s/ŵ//g;
1 while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)/$1/);
1 while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)/$1/);
1 while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)/$1/);
1 while (s/^((?:[\x00-\x7F]|[\x80-\xFF].)*)/$1/);
}
|
