#!perl -la055
$/.=$".$/,$"x=3for 1..pop;print$/

##</code><code>##

$\=$/;
#here something for '-a' ?
$/=chr(055);
...