I finally got my solution one character shorter than Eugene's, and someone else has posted a 237 character solution. *sigh*
#!perl -n056
sub L{length pop}sub v{$_=lc;y/aeiouy//}sub b{()=/\w/g}$W=@@=/\S+/g;$V=v;$B=b;$s=$n='';while(@@&&60>L$s){$_=shift@@;$s.=$_.$";$n.=v.'/'.b.$";$n.=$"x($d=L($s)- L$n);$s.=$"x-$d}$s=~s/\s+$//;60 |