view release on metacpan or  search on metacpan

lib/Acme/EyeDrops.pm  view on Meta::CPAN

   )))))))))))))                             )))))))))))))
   )))))))))))))                             ))))))).("\["^
  ')').('`'|')').                           ('`'|'.').("\["^
 '/').'"'.('`'^'"').                      ('`'|',').('`'|'!'
 ).('`'|'#').('`'|'+')                 .('{'^'[').('{'^'-').(
 '`'|')').('`'|'#').("\["^         '/').('`'|'/').('['^')').(
 '`'|')').('`'|'!')."'".('['    ^'(').('{'^'[').('['^('(')).(
 '`'|'%').('`'|'#').('['^')').('`'|'%').('['^'/').('{'^'[').
  ('`'|'"').('['^')').('`'|'!').('{'^'[').('`'|'$').(('`')|
   '/').('`'|'.').('`'|'!').('['^'/').('`'|'%').('`'|'$').
    ('{'^'[').('`'|"\"").(         '['^'"').('{'^"\[").(
       '`'^'(').(('`')^               '&').('`'^'"').
          ('!'^'+')                      .('"})'))

The bra, donated by Elaine -HFB- Ashton, was bought by the artist
expressly for this artwork at the YAPC::Europe 2003 auction.

An interpretation of Brocard's modern masterpiece is given below:

 Victoria Bra, Secret Tango (2003)

 L. Brocard 1976-

 This, the third work in Brocard's acclaimed "Naranja" sequence,
 explodes the theme of semantic [a]chromatic aspects of aranciata
 visual perception, first explored in his celebrated "Buffy" series,
 and fully explores the concept of supporting relationships, which
 were touched on in his earlier works. The site's central artifact
 is a stark reminder of the lack of support in contemporary
 relationships, with the jumbled juxtaposition of its two cups,
 indicative of being discarded in a hurry, symbolizing the excessive
 rapidity and tautness of modern life. As always with Brocard, it is
 vital to consider the intertextuality of the title of the work, in
 order to deconstruct the surface meaning of the work itself and
 penetrate, as it were, to the kernel of the work's "meaning", if
 such a concept is still relevant in the present context. Consider,
 for example, the word "Victoria": does it express the moniker of the
 bra's former occupant or merely the state or district in which she
 was born? And what of "Secret Tango"? Is it, in the context of the
 universe that is the present work, merely indicative of the site's
 location and visual perception, or does it suggest the bra's former
 resident once furtively enjoyed a rhythmic dance of long gliding
 steps and sudden pauses with the artist? The viewer will no doubt
 at this point recall that the word "tango" rhymes with "mango" and
 thereby grasp the semantic thrust of the work's title. However, the
 installation itself has even more to reveal when the particularly
 observant viewer speculates on the site's central device being
 strapped to its current owner's chiseled torso.

 This work is extremely fragile. Please do not touch.

=head2 Love Birds

My Dark Tunnels teammate Taffy is devoted to, and firmly believes in,
a love calculator web site where you type in two names and it reports
your love compatibility.

Accordingly, the love compatibility of our entire team was calculated,
and found to be disappointingly low, with one notable exception.
Taffy and Muss recorded an astonishingly high love compatibility
of ninety nine percent, the highest ever recorded!

As a tribute to their affectionate and touching bromance, I wrote this program:

    use Acme::EyeDrops qw(sightly get_eye_string hjoin_shapes);
    print sightly( { ShapeString   => hjoin_shapes(3, (get_eye_string('heart2'))x2),
                     SourceString => "Muss and Taffy have 99% Love Compatibility\n",
                     Regex        => 1,
                     Print        => 1 } );

to generate:

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

By the way, this is the same heart shape that Perl Monk Falkkin used
to successfully propose to his girlfriend Kristen in August 2004.

=head2 Buffy Goes to the Cricket

Buffy fans might like to rotate her letters:

    print sightly( { Shape       => 'buffy',
                     Rotate      => 0,  # try 270, 90 and 180
                     RotateType  => 1,  # try 0, 1, 2
                     SourceFile  => 'helloworld.pl',
                     Regex       => 1 } );

or have her ride a pony:

    print sightly( { Shape        => 'buffy3,buffy4,riding,a,pony',
                     SourceString => "This is how Catherine the ".
                                     "Great died.\n",
                     Gap          => 2,
                     Regex        => 1,
                     Print        => 1 } );

while cricket fans might create a reduced, inverted shape with:

    print sightly( { Shape       => 'cricket',
                     Reduce      => 1,
                     Invert      => 1,
                     BorderWidth => 1,
                     SourceFile  => 'helloworld.pl',
                     Regex       => 1 } );

producing: