This code uses a similar technique to that used by the CPAN Acme::EyeDrops module. To illustrate, running this program: 

use Acme::EyeDrops qw(sightly);
print sightly({ Regex        => 1,
                Print        => 1,
                Compact      => 1,
                SourceString => "allen\n" });

[download]
produces: 
''=~('('.'?'.'{'.('['^'+').('['^')').('`'|')').('`'|'.').('['^'/').'"'
+.('`'|'!').('`'|',').('`'|',').('`'|'%').('`'|'.').('!'^'+').'"'.'}'.
+')')

[download]
which, when run through Deparse, produces: 
'' =~ /(?{print"allen\n"})/;

[download]

For more fun, Acme::EyeDrops allows you to pour the generated code into various shapes. For example, running: 

use Acme::EyeDrops qw(sightly);
print sightly({ Shape        => 'rose',
                Regex        => 1,
                Print        => 1,
                Indent       => 1,
                SourceString => "allen\n" });

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

[download]

In reply to Re: Can someone please break this obfuscated code down for me by eyepopslikeamosquito
in thread Can someone please break this obfuscated code down for me by axl163

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.