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/./,@-)[EMAIL PROTECTED]:die"broken sequence"; Joy, `/anick
