Help for this page
($r,$i,$l,@ARGV)=@ARGV[1,2,2,0];(/$r/and$i='.'or++$i<=$l)&&print while +<>
2;0 juerd@ouranos:~$ perl -e'undef christmas' Segmentation fault 2;139 juerd@ouranos:~$