freebsd-nq/bin/ed/test/s1.t

7 lines
61 B
Perl

s/\([^ ][^ ]*\)/(\1)/g
2s
/3/s
/\(4\)/sr
/\(.\)/srg
%s/i/&e/