13 lines
60 B
Perl
13 lines
60 B
Perl
g/./s/./x/\
|
|
u\
|
|
s/./y/\
|
|
u\
|
|
s/./z/\
|
|
u
|
|
u
|
|
0a
|
|
hello
|
|
.
|
|
$a
|
|
world
|
|
.
|