$_="x" x 30;
s:xx:(" " x (length($')/2))."$`$&\n":ge;
s:(?<=\n).*:$&$`$`:s;
print;