7 lines
167 B
Plaintext
7 lines
167 B
Plaintext
#do "/root/rename-subs/asciilower";
|
|
do "/root/rename-subs/nospecial";
|
|
#do "/root/rename-subs/a-zA-Z0-9._";
|
|
unless (/^Doku /) { $_= "Doku " . $_; }
|
|
s/_+/_/g;
|
|
s/ +/ /g;
|