Help for this page

Select Code to Download

Select or download this
```
    % perl blocks x
```

Select or download this

                                                               
if(pop){undef$/;open$x,$0;$_=<$x>;s/\S/#/g;die$_}              
...
                                    ")} 0..5