Patrick Gaskill <[EMAIL PROTECTED]> wrote:
> My attempt, at 79 characters:
> $\=$/;undef$/;$_=<>;s/.{70}//s;tr,01\n,\x00\xff,d;
> print$1while/(.{1,127})\n?/g;
Are we doing this without command-line switches? This should
do the same in 65 characters:
$\=$,=$/;$/=x;$_=<>;s/.{70}//s;tr,01\n,\x0\xff,d;print/.{1,127}/g
But s'\x0\xff' @' to make it shorter and more visible on my system.
--
Keith C. Ivey <[EMAIL PROTECTED]>
Washington, DC
