http://www.perlmonks.org?node_id=75560


in reply to Re: Re: Triangle Golf
in thread Triangle Golf

Very nice paring down, I especially like the conversion from a greedy expression to the minimal one you use, in order to avoid defining $c. Further reduction gives:
perl -ln0e's/\s+/ /g;print$"x(40-($c=length$&)/2),$&while/.{0$c,}? |.* +/g' ...
61 chars of code plus 3 modifier chars.
   MeowChow                                   
               s aamecha.s a..a\u$&owag.print