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