open F,"ctriangle.txt";sub n{print " "x(40-$r/2)."$x\n"};$/=$w;$_=; for(split){$c=$r,n,$x=''if( $r=length($x.=" $_"))>$c}n