Porque soy un geek romantico. ;-)

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

Una respuesta a “Porque soy un geek romantico. ;-)”

  1. Por alguna razón que ahora no recuerdo mi template utiliza: “Modern::Perl ‘2012’” así que si quieres ver que dice, necesitas perl5.14+ e instalar Modern con cpan 😉 muy folclórico yo. 😉

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *