Select Code to Download

perl camel.pl            camel forward somersaults as before
perl camel.pl b          camel somersaults backwards
...
                "\^"^(                                ('`')|       
              ('/'))).                               '"})');       
------------------------------------------------------------------

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;