Select Code to Download

camel.pl:
(Save all text between the ------ lines below)
...
                .')');                                $:='.'       
              ^'~';$~=                               '@'|'('       
------------------------------------------------------------------

use Acme::EyeDrops qw(sightly);
my $src = <<'END_SRC_STR';
...
my $max = 0; length > $max and $max = length for @a;
$_ .= ' ' x ($max - length) for @a;
print " $_ \n" for @a;