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


in reply to Re^2: Pascal-Sierpinski for golfers
in thread Pascal-Sierpinski for golfers

Nice, thank you ! With the same idea for Sierpinski : 
#!/usr/bin/perl -l
print,s/^/_/,s/./$'& z^$&^Z/eg,y/5/o/for($a=o)x80

[download]

In Section Cool Uses for Perl