$_=<>;$x=$$;0while s/(\V{$x}.?)(\V{$x})/\x0c$1 \x0c$2 /||--$x;y/\x0c /{}/;print"{$_}"
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page