Select Code to Download

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

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

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

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

                                   ''=~('('.'?'
                                 .'{'.('['^"\+").(
...
                            =((
                            '`'
                            ));