Perl … just wow :o

Posted by attriel April 17th, 2009

Hoping this shows right …

    ''=~(        '(?{'        .('`'        |'%')        .('['        ^'-')
    .('`'        |'!')        .('`'        |',')        .'"'.        '\$'
    .'=='        .('['        ^'+')        .('`'        |'/')        .('['
    ^'+')        .'||'        .(';'        &'=')        .(';'        &'=')
    .';-'        .'-'.        '\$'        .'=;'        .('['        ^'(')
    .('['        ^'.')        .('`'        |'"')        .('!'        ^'+')
   .'_\{'      .'(\$'      .';=('.      '\$=|'      ."|".(      '`'^'.'
  ).(('`')|    '/').').'    .'\"'.+(    '{'^'[').    ('`'|'"')    .('`'|'/'
 ).('['^'/')  .('['^'/').  ('`'|',').(  '`'|('%')).  '\".\"'.(  '['^('(')).
 '\"'.('['^  '#').'!!--'  .'\$=.\"'  .('{'^'[').  ('`'|'/').(  '`'|"&").(
 '{'^"[").(  '`'|""").(  '`'|"%").(  '`'|"%").(  '['^(')')).  '\").\"'.
 ('{'^'[').(  '`'|"/").(  '`'|".").(  '{'^"[").(  '['^"/").(  '`'|"(").(
 '`'|"%").(  '{'^"[").(  '['^",").(  '`'|"!").(  '`'|",").(  '`'|(',')).
 '\"\}'.+(  '['^"+").(  '['^")").(  '`'|")").(  '`'|".").(  '['^('/')).
 '+_,\",'.(  '{'^('[')).  ('\$;!').(  '!'^"+").(  '{'^"/").(  '`'|"!").(
 '`'|"+").(  '`'|"%").(  '{'^"[").(  '`'|"/").(  '`'|".").(  '`'|"%").(
 '{'^"[").(  '`'|"$").(  '`'|"/").(  '['^",").(  '`'|('.')).  ','.(('{')^
 '[').("["^  '+').("`"|  '!').("["^  '(').("["^  '(').("{"^  '[').("`"|
 ')').("["^  '/').("{"^  '[').("`"|  '!').("["^  ')').("`"|  '/').("["^
 '.').("`"|  '.').("`"|  '$').",".(  '!'^('+')).  '\",_,\"'  .'!'.("!"^
 '+').("!"^  '+').'\"'.  ('['^',').(  '`'|"(").(  '`'|")").(  '`'|",").(
 '`'|('%')).  '++\$="})'  );$:=('.')^  '~';$~='@'|  '(';$^=')'^  '[';$/='`';

That there is some nice formatting :o 

Source: http://www.99-bottles-of-beer.net/language-perl-737.html
Bottling (and obfuscating) done by: Acme::EyeDrops

Comments Off , Pings Off.

Comments are closed.