Select Code to Download

#!/usr/bin/perl
use warnings;
...
my@p=(' ',qw(. + * ),'#');my$s=20;sub p{my($w,$v)=@_;for my
$e(1..$#p){return$p[$e]if$w**2+$v**2<($e*$s/$#p)**2}' '}for
my$v(-$s..$s){for my$w(-$s..$s){print p($w,$v);}print"\n";}