On Thu, 13 Mar 2003 17:20:00 +0100
Marius Ascheberg <[EMAIL PROTECTED]> (I) wrote:

> So we're back to 32 strokes.
> 
> #!perl -p0
> s/^((\S+).+)\n\2 /$1 /m&&redo

I was too dumb, again.

So here's my last one, which seems to work and uses 33 strokes:

#!perl -p0
s/^((\S+) .+)\n\2 /$1 /m&&redo

Reply via email to