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