a a a a a a a a a
a a a a a a a a a
a a a a a a a a a
a a a a a a a a
####
a
a a
a a a
a a a a
a a a a a
a a a a a a
a a a a a a a
a a a a a a a
##
##
The
same
principle
applies to
any text file,
basically splitting
words only on spaces
or new lines
##
##
/[
]+/
##
##
open F,"ctriangle.txt";sub n{print
" "x(40-$r/2)."$x\n"};for(split/[
]+/,join'',){$c=$r,n,$x=''if(
$r=length($x.=" $_"))>$c}n
##
##
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