Re: simple golf for fun

Phil Carmody said:
> This is a real world task which can be solved in a couple of lines.
> Which makes me think that you guys can do it in about half a line!

   Not exactly half a line, but still not too bad:

#!perl -lp
$p=~s/\B|\b/(.)?/g;/^$p$/;
$p=$_;$_=(@m=grep/./,@-)==2?pop@m:die"broken sequence";


Joy,
`/anick