$_='.15#5.15
.11#13.11
.9#17.9
.7#21.7
.6#23.6
.5#6.7#6.5
.3#5.13#4.4
.3#3.16#4.3
.2#3.19#3.2
.1#3.21#3.1
.0#3.23#3.0
.0#2.25#2.0
..#2.3#1.7#1.3#2..
..#2.2#3.5#3.2#2..
'.('.#2.2#4.5#4.2#2.
'x2).'.#1.4#3.5#4.3#1.
#2.4#3.6#2.4#1.
#2.5#0.9#0.5#2
'.('#2.31#2
'x4).('#2.4##.13##.4#2
'x2).'#2.4#0.11#0.4#2
#2.4#1.10#0.4#2
.#1.5#1.7#1.5#1.
.#2.4#2.5#2.4#2.
.#2.5#13.5#2.
..#2.5#11.5#2..
..#2.7#8.6#2..
.0#2.8#4.7#2.0
.0#3.23#3.0
.1#3.21#3.1
.1#4.19#3.2
.2#4.17#4.2
.3#5.13#5.3
.4#6.9#6.4
.6#9..#9.6
.7#21.7
.9#17.9
.11#13.11
.14#7.14';s/(.)(\d+)/$1 x(3+$2)/ge;print
Note that non-ascii characters in the above source code will be escaped (such as \x9f).