note MeowChow <code> $c=(@ARGV,$/)='ctriangle.txt';$_=<>.$";y/ / /s;print$"x(40-($c=length$&)/2),"$&\n"while/.{1,$c}.*? /g </code> 102, including the newline ;)<p> <b>update</b>: changed two <code>' '</code> to <code>$"</code>, saving an additional two characters - liberally aped from [jeroenes] node :-)<p> <b>update2</b>: shuffled the $/ assignment into the list assignment, saving another extra char. <pre> <a href="/index.pl?node=MeowChow"> MeowChow </a> s aamecha.s a..a\u$&owag.print</pre> 75004 75004