Help for this page

Select Code to Download

Select or download this

$c=(@ARGV,$/)='ctriangle.txt';$_=<>.$";y/
 / /s;print$"x(40-($c=length$&)/2),"$&\n"while/.{1,$c}.*? /g