Help for this page
$_="x" x 30; s:xx:$' $`$&\n:g; s:(?<=\n).*:$&$`$`:s; s/xx(?=(x*)(\1) )/ /g; print;