#Sierpinski triangle created from Pascal's Triangle (Centered)
$maxRows = 128;
@row = ();
for (1 .. $maxRows)
{
for ($i = scalar (@row) - 1; $i > 0; --$i)
{ $row[$i] = ($row[$i] + $row[$i-1]) % 2; }
push (@row, 1);
print ' ' for (1 .. int(($maxRows - scalar(@row))/2));
print +(' ')[$_]||'█' for (@row);
print "\n";
}