Inspired by Len's recent spiralling quine, I have created a somersaulting camel: 🐪

camel.pl:
(Save all text between the ------ lines below)
------------------------------------------------------------------
                                       ''=~('(?{'.(                
            ('`')|                   '%').('['^'-').               
         ('`'|'!').                ('`'|',').'"'.('['              
  ^'(').('['  ^'.').              ('`'|'"').('{'^'[').             
 '_\\{'.('['^('(')).(            '['^'"').('['^('(')).(            
 '['^'/').('`'|"\%").(          '`'|'-').'\\$^'.(('`')^            
   '/').'=~'.('{'^',')        .('`'|')').('`'|'.').'?'.(           
        '`'^'#').('`'^      ',').('{'^'(').':'."'".("\`"|          
       '#').('`'|',')     .('`'|'%').('`'|'!').('['^"\)").         
      "'".';'.(('[')^   '+').('['^')').('`'|')').('`'|'.').        
     ('['^'/').'\\$'   .'\\"'.('['^'#').'+'.('`'|'!').(('`')|      
     '"').('['^'(').  '('.('^'^('`'|'/')).(':'&'=').'*('.('^'^     
     ('`'|',')).'*'  .'\\$|-\\$;)),\\$_,\\$/'.('`'|'&').("\`"|     
     '/').('['^')')  .'\\@_;'.('['^'(').('`'|',').('`'|('%')).(    
     '`'|'%').('['^'+').('{'^'[').('^'^('`'|'/')).'\\}'.(('`')|    
     '/').('['^'+').('`'|'%').('`'|'.').'\\$%;'.('`'|'#').("\`"|   
      '(').('`'|'/').('['^'+').','.('['^'"').',!-~,#,,'.('['^'('   
      ).',(.).?,\\$+,'.('`'|"'").('`'|'&').('`'|'/').('['^(')')).  
       '\\@~='.('`'|"'").('['^')').('`'|'%').('['^'+').'\\$|--,<'. 
        ('^'^('`'|'.')).'>;\\@;='.('`'|'-').('`'|'!').('['^('+')). 
         '~~'.('['^')').('`'|'%').('['^'-').('`'|'%').('['^')' ).( 
          '['^'(').('`'|'%').','.('['^')').('`'|'%').('['^'-'  ).( 
           '`'|'%').('['^')').('['^'(').('`'|('%')). '\\@~;('  .(( 
             '\\')).'$;=\\$_%'.('^'^('`'|'-')).')|'  .'|(--'   .(( 
              '\\') ).'$|,'.('`'|'-').('`'|"\!").(   '['^'+'   ).+ 
                    '\\{\\$_='.('['^')').('`'|'%'    ).('['^   '-' 
                    ).("\`"|    '%').('['^ ')').(     ('[')^   ((  
                    '('))).     ('`'|'%'   ).'\\'     .'}\\'  .+   
                    '@~,\\'     .'@;),_'   .'\\'       .'$;'  .    
                    "\&".(      '^'^('`'   |'/'         )).+       
                    '?\\@'     .';:\\@~'   .''.         ('`'       
                     |'&')     .(('`')|    '/')         .''.       
                     ('['^     (')')).     '\\'         .'$'       
                     .'%'     .'..'.       ('^'         ^(((       
                     '`')     )|+          '/')         ).+(       
                     '^'^      (((         '`'          ))|        
                     '/'        )).       '"'           .((        
                     '}'         )).     ')'            );(        
                     $:)          =((   '.'              ))        
                     ^+             '~';$~               =(        
                     ((              '@'))               )|        
                     ((             '('));$^             =(        
                    ')'            )^(( '['))            ;(        
                   $/)           ="\`"|  '.';           $_=        
                  '('^         "\}";$,=   '`'          |'!'        
                ;($\)=                                (')')^       
              "\}";$:=                               '.'^'~'       
------------------------------------------------------------------

[download]

To run this program, save as camel.pl (say), then:

perl camel.pl

and watch the camel somersault across the screen.

camel.pl above was created with:

perl gencamel.pl >camel.pl

where gencamel.pl is:

use Acme::EyeDrops qw(sightly);
my $src = <<'END_SRC_STR';
sub _{system$^O=~Win?CLS:'clear';
print$"x+abs(18*(2*$|-$;)),$_,$/for@_;sleep 1}
open$%;
chop,y,!-~,#,,s,(.).?,$+,gfor@~=grep$|--,<0>;
@;=map~~reverse,reverse@~;
($;=$_%3)||(--$|,map{$_=reverse}@~,@;),
_$;&1?@;:@~for$%..11
END_SRC_STR
$src =~ tr/\n//d;
my $prog = sightly( { Regex         => 1,
                      Compact       => 1,
                      Shape         => 'camel',
                      SourceString  => $src } );
my @a = split(/\n/, $prog);
my $max = 0; length > $max and $max = length for @a;
$_ .= ' ' x ($max - length) for @a;
print " $_ \n" for @a;

[download]

It was quite a struggle to make this program small enough to fit into a single camel shape, so any further golfing improvements to gencamel.pl above are most welcome.

In reply to Somersaulting camel by eyepopslikeamosquito

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.