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

##</code><code>##

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

##</code><code>##

'' =~ /(?{print"allen\n"})/;

##</code><code>##

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

##</code><code>##

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