7 lines
61 B
Perl
7 lines
61 B
Perl
|
s/\([^ ][^ ]*\)/(\1)/g
|
||
|
|
2s
|
||
|
|
/3/s
|
||
|
|
/\(4\)/sr
|
||
|
|
/\(.\)/srg
|
||
|
|
%s/i/&e/
|