Select Code to Download

#!/usr/bin/perl -w
use strict;
...
4||return;t($x,$y,$d-.6-$~*$d,$D);t($x,$y,$d+.6-$~*$d,$D--)}sub l{
my($x,$y)=@_;for(0..pop) {p($x+=cos$_[2],$y+=sin$_[2])}($x,$y)}sub
p{substr($:,int(pop)*79+int(pop),1)='#'}

<    my @rows=split(//,$:);
<    my $i=0;
...

>    $:=~s/(.{80})/$1\n/g;
>    print $: