5 lines
31 B
Perl
5 lines
31 B
Perl
,s/./(&)/3
|
|
s/$/00
|
|
2s//%/g
|
|
s/^l
|
,s/./(&)/3
|
|
s/$/00
|
|
2s//%/g
|
|
s/^l
|