Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number
 
PerlMonks  

Somersaulting camel

by eyepopslikeamosquito (Chancellor)
on Jun 23, 2002 at 06:25 UTC ( #176577=obfuscated: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    camel.pl:
    (Save all text between the ------ lines below)
    ...
                    ;($\)=                                (')')^       
                  "\}";$:=                               '.'^'~'       
    ------------------------------------------------------------------
    
  2. or download this
    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;