Re: Project management

2013-01-23 Thread Andrew Savige
Greg McCarroll wrote:
 Oh i'd also recommend DeMarco's book 'The Deadline', it's a sort of
 novel about project management

And 'The Mythical Man-Month' by Fred Brooks.

Well-written, entertaining books about project management are rare.

/-\




Re: 25 Years of Perl

2012-11-22 Thread Andrew Savige
On Mon, Nov 19, 2012 at 05:29:29PM +, Dave Cross wrote:
 At the LPW on Saturday I'm giving a talk entitled 25 Years of Perl

Twenty five years is a long time, so inevitably some Perl
hackers have passed away during that period:

 Iain Truskett (aka Spoon/Koschei)
 Nick Ing-Simmons
 Dr Randy Kobes
 Tad McClellan
 Ivor Williams (perl monk: rinceWind)
 perl monk almut
 perl monk blazar
 perl monk VSarkiss

Not sure if it is appropriate for your talk, but you might
like to acknowledge their contributions.

/-\




Re: 25 Years of Perl

2012-11-22 Thread Andrew Savige
Though there doubtless isn't time for a deatiled history of the

lighter side of Perl culture, for completeness, in addition to
Acme modules, we have: JAPH, Obfu, Golf, Poetry, April Fools.

Some highlights:

JAPH: First JAPH by merlyn 1988, followed later by trickier ones.
Abigail's later popularisation of the JAPH.

Obfu: TPJ Obfuscated Perl comps 1996-2000 run by Jon Orwant.
Paris Perl Mongueurs $A++ page. Erudil's famous Camel Code on a
T-shirt 2000. Larry's winning entry in the C obfucated comp 1986.
Damian's SelfGOL; BooK and Jerome Quelin's multi-lingual obfus.

Golf: Greg Bacon coins Perl Golf on CLPM 1999.
Early informal golf battles Larry v Randal on CLPM 1990.
RSA encryption/decrpytion in Perl as a signature file 1995.
Live Perl Golf Apocalypse 2000 at TPC 4, aka uri's triumph.
TPR Golf comps 2002. Perl golf transmogrifying into code golf
in 50+ languages 2005. BTW, code golf is way more popular in
Python than Perl nowadays, which may refute some of the
arguments in this thread:

 http://www.dagolden.com/index.php/163/stop-with-the-perl-golf-already/

Poetry: Larry's April Fools Black Perl comp.lang.perl.poems
newsgroup prank 1990. Sharon Hopkins seminal Camels and Needles
paper 1991. Sharon's first poetry comp 1991. Later poetry comps
run by Kevin Meltzer, TPC, and ActiveState 1990s. Damian's Coy
module 1999 and subsequent explosion of interest in haiku.
TPC 4 2000 haiku contest won by chipmunk.

April Fools: Larry's Black Perl comp.lang.perl.poems 1990,
Partain's Haskerl 1993,
merlyn's sh2perl 1998,
the lovely David Adler Esq.'s Semi::Semicolons 1999,
foy's Java Mongers 1999,
Damian's Acme::Bleach/acme's Acme::Buffy/DrHyde's Acme::Pony 2001,
Cozens' elaborate Parrot prank 2001.
April Fools patches to P5P.

Full details can be found at:

 http://perlmonks.org/?node_id=412464  (JAPH)
 http://perlmonks.org/?node_id=424355  (Obfu)
 http://perlmonks.org/?node_id=437032  (Golf)
 http://perlmonks.org/?node_id=451207  (Poetry)
 http://perlmonks.org/?node_id=540609  (April Fools)

Enjoy,
/-\




Re: 25 Years of Perl

2012-11-20 Thread Andrew Savige
On Mon, Nov 19, 2012 at 05:29:29PM +, Dave Cross wrote:
 At the LPW on Saturday I'm giving a talk entitled 25 Years of Perl

Great idea.

An amusing anecdote from the very early days that illustrates how
Perl attracted some of its early users is that merlyn relentlessly
answered requests for Unix sed, awk, and shell help with snippets
of *Perl* code. Indeed, he did this so often that posters began
inserting No Perl please in their posts! As you might expect,
that served only to increase the volume of Perl snippet responses.

Because merlyn knew shell, sed and awk so well, he could answer
questions in the requested language ... and then compare and
contrast with a more elegant Perl solution.

BTW, I believe this at least partly explains why merlyn formed
part of the 2.7% who voted _against_ the formation of a separate
comp.lang.perl newsgroup in 1989.

The old use.perl.org links to verify this are broken unfortunately.
Though I found a wayback machine link:

http://web.archive.org/web/20041225063326/http://use.perl.org/comments.pl?sid=10975cid=16619

Oh, and here is a (hopefully not broken) link to the original 1989
vote for comp.lang.perl, carried by 205 votes to 7:

https://groups.google.com/forum/?fromgroups=#!msg/news.groups/bjii5Z9iJgY/RgAl62J00OUJ

/-\




Re: Can I get some advice on best way to start Perl Programming

2012-08-31 Thread Andrew Savige
Rick Deller wrote:
 I have brought  a couple of books on the subject which I'm reading through
 I'm very keen to learn more and how to do it
 Can anyone suggest more books or another way of doing it ?


In addition to the already mentioned learn.perl.org you might take a look at
the Perl Tutorial Hub at http://perl-tutorial.org/

/-\




New article on the history of Acme::Bleach and related modules

2012-04-28 Thread Andrew Savige
Shameless plug for a new node on an important bit of Perl history
The History of Acme::Bleach and Acme::EyeDrops at perlmonks:

 http://www.perlmonks.org/?node_id=967004

This history includes Acme::Buffy and Acme::Pony and I just
posted a follow-up using references from the London.pm
mailing list circa 2001.

If I made any errors re the London.pm history or you have further
interesting anecdotes from 2001, please let me know.

Thanks,
/-\




Re: Exim and HELO

2003-09-08 Thread Andrew Savige
Nicholas Clark schreef:
 Anyway, something's just gone horribly wrong because we[1]'ve just
 won a cricket match. That's not supposed to happen.

 1: For some value of we that feels some sort of support for the
England team, not that they really earn it that often.
(Strict pedants will note that it's technically the England 
 Wales team. I'm still surprised that the Dutch don't even
 notice when their cricket team is in the world cup)

No, no, no. That's the Canadians. Cricket was probably the most popular
sport in the Netherlands ... ok, so that was in the 1870s.

I have ferreted through my old email archives from the last Cricket World
Cup; the quotes from the Dutchman are marked D: and from the Canuck C:

Wearing fluro Leon-Orange uniforms ripped straight from the set of
Charlie's Angels, the Dutch performed admirably against Australia this
morning, losing by only 75 runs:
http://www.smh.com.au/articles/2003/02/20/1045638426218.html
http://www.cricketworldcup.com/wallpapers/icc/img70.htm

D: I have to say I like their uniforms! Exactly the right colour.
D: Too bad I didn't understand a word of that article...

C: Isn't using uniform colors to incinerate the retinas of the opposing
C: team against the rules?

D: According to the Volkskrant (a national newspaper) the match against
D: Australia was almost a draw! Unfortunately, the rain stopped a bit
D: too early and the match could still be played...
D: Volkskrant: Australia needs only one more victory to qualify for the
D: champion's round of the WC. For the Netherlands the next defeat is on
D: February the 25th against Pakistan.

Led by a brilliant bowling performance from a 28-year-old dread-locked
plumber, Canada won its first match ever in the Cricket's World Cup.

C: Aye. One of my co-worker, a charming Indian fellow going by the name
C: of Ram, informed me of the accomplishment. My spontaneous reaction was,
C: and I quote verbatim: We have a cricket team?. Cricket, alas, is not
C: really popular in Canada. We are more obsessed over hockey and curling
C: and moose-wrestling...

C: In related news, after the Canada first victory ever (was it against
C: Zimbabwe?), not only we got creamed by Sri Lanka, but we actually
C: acheived the lowest score possible in such a match.

D: I've read that! But I don't think it's the lowest _possible_ score,
D: just the lowest actually achieved. It wouldn't surprise me if the
D: Dutch eleven(?) can beat your score.

Another record for Canada! The fastest century in World Cup history!
http://www.cricketworldcup.com/lion/lion2302200302.htm

C: Ooh!
C: Er. It is something good, or bad?

As noted in a prominent article (Lawyer sets precedent as dashing Dutch
end campaign in style) in this morning's SMH newspaper, Holland finished
on a high note, with their first ever World Cup century. Actually two
Dutch batsmen scored centuries against Namibia; the first by lawyer Jan
Feiko Kloppenburg (who works in The Hague), the second by Financier
Klaas-Jan van Noortwijk (who was so stiff after his heroic 134 not out
he was unable to field).

D: Oranje boven! There were pictures of the last match against Namibia
D: in the paper, so our first victory ever in the world cup didn't pass
D: unnoticed. Of course, it helped that it there was no other sports
D: news today (or was it yesterday).
D: And there was much rejoicing, I presume, about the results of the
D: English team...

/-\



http://search.yahoo.com.au - Yahoo! Search
- Looking for more? Try the new Yahoo! Search



Re: golf and reversed emails

2003-08-28 Thread Andrew Savige
Roger Burton West wrote:
 On Wed, Aug 27, 2003 at 01:25:41PM +1000, Andrew Savige wrote:

 To reverse the order of the lines (rather than their content),
 can anyone shorten this?

 perl -e'print reverse' f.tmp

 perl -e 'exec tac' f.tmp

*Cough*, didn't think of that.
This was a Dorothy Dixer(1), the hoped for(2) response being:

perl -pe'$\=$_.$\}{' f.tmp  (3)

A certain Yorkshire gentleman(4), to his great credit, while
certainly knowing of this solution, did not give the game away.
I suspect Jasper knew about it too.

/-\

(1) Dorothy Dixer, noun (Australian, informal)
A question posed to illicit a known response, routinely performed in
the convict colony's parliament by a government back-bencher so the
minister may give a prepared answer. [from Dorothy Dix, pen-name of
American journalist Elizabeth Meriwether Gilmer, 1870-1951, who wrote
a column of advice to people with emotional problems; it was thought
she wrote the more intriguing letters herself].

(2) Since finding this solution suggests you are in need of about
two years of psychotherapy.

(3) Found by Drs Eugene van der Pijll while riding his bike in
Utrecht, Holland, December 2001.

(4) See sig for a clue about his identity.

--
Design, debate, sift
Prankster Piers pawky precis
Weekly light relief


http://search.yahoo.com.au - Yahoo! Search
- Looking for more? Try the new Yahoo! Search



Re: golf and reversed emails

2003-08-28 Thread Andrew Savige
Jasper McCrea wrote:
 Improving that:
 
 #!perl -wlp
 use strict;
 s/\s+$//;y#/[-]{}()`'#\\]/[}{)('`#;$_[y///c]++;
 @}=($_,@})}for(map$x-(y///c-$#_).reverse,@}){

Of course, using Thelen's Device, we can sh?ave one more stroke:

#!perl -lp
s;\s+$;;;y;/[-]{}()`';\\]/[}{)('`;;\$_[y]]]c];
@}=($_,@})}for(map$x-(y---c-$#_).reverse,@}){

Nearly a one-liner now.

/-\


http://search.yahoo.com.au - Yahoo! Search
- Looking for more? Try the new Yahoo! Search



Re: golf and reversed emails

2003-08-27 Thread Andrew Savige
Nick Cleaton wrote:
 On Sun, Aug 24, 2003 at 05:29:02PM +0100, Scott McWhirter wrote:
   
  perl -e 'print `rev`'
   
   Can anyone beat 11 characters?
  
  yeah... remove the space...
 
 Or even perl -e 'exec rev'

  Or even perl -eexec\ rev

To reverse file f.tmp, I've tried:

perl -e'`rev2`'f.tmp
perl -e'exec rev'f.tmp
perl -eexec\ revf.tmp
rev f.tmp|perl -pe#

/-\


http://search.yahoo.com.au - Yahoo! Search
- Looking for more? Try the new Yahoo! Search



Re: golf and reversed emails

2003-08-27 Thread Andrew Savige
 To reverse file f.tmp, I've tried:
 
 perl -e'`rev2`'f.tmp
 perl -e'exec rev'f.tmp
 perl -eexec\ revf.tmp
 rev f.tmp|perl -pe#

To reverse the order of the lines (rather than their content),
can anyone shorten this?

perl -e'print reverse' f.tmp

/-\


http://search.yahoo.com.au - Yahoo! Search
- Looking for more? Try the new Yahoo! Search



Re: golf and reversed emails

2003-08-25 Thread Andrew Savige
Simon Wistow wrote:
 It's mildly golfish so I thought I'd post it and see if people would
 come up with something better (ignoring the easy wins like shoter
 variable names).

   use strict;
   my $max = 0;
 
   print join \n, reverse
 map {tr/\\\/\\\[\]\{\}\(\)\`\'/\/\]\[\}\{\)\(\'\`/;$_}
 map {(  x ($max - length)).reverse}
 map {s/\s*$//g; $max = length if length$max; $_} ;
   print \n;

This reminds me of the recent Buffy Looking in the Mirror sequence
at MoMA. Ignoring the obvious shortenings:
  tr  -  y
  length  -  y///c(aka Abigail's length horror)
we can eliminate the grotty join and unsightly double print with:

use strict;
my $max = 0;

print reverse map {  x ($max - length).reverse.\n }
  map {s/\s+$//; tr!/[-]{}()`'!\\]/[}{)('`!;
   $max = length if length$max; $_} ;

This is more hard-core:

#!perl -wlp
use strict;
s;\s+$;;;y;/[-]{}()`';\\]/[}{)('`;;($==y===c)$-($-=$=);
@}=($_,@})}for(map$x-(y---c-$-).reverse,@}){

/-\
--
You want it in one line?  Does it have to fit in 80 columns?   :-)
 -- Larry Wall in [EMAIL PROTECTED]



http://search.yahoo.com.au - Yahoo! Search
- Looking for more? Try the new Yahoo! Search



Re: Exporting Symbols

2003-08-17 Thread Andrew Savige
Nigel Rantor wrote:
 I would export symbols anyway since I go for deisng first and then 
 speed/size/ other optimisations.
 
 Can anyone provide me with any info as to whether or not he is correct?

The official advice for CPAN modules is to export nothing because
exports pollute the namespace of the module user. See:

http://www.cpan.org/modules/00modlist.long.html#ID2_Guidelinesf

(section 2.4 Select what to export) for more details.

/-\


http://mobile.yahoo.com.au - Yahoo! Mobile
- Check  compose your email via SMS on your Telstra or Vodafone mobile.



Re: Bra

2003-08-15 Thread Andrew Savige
dha wrote:
 On Thu, Aug 14, 2003 at 10:26:18AM +0100, Leon Brocard wrote:
 The goods have indeed arrived. I will not take any photos of it. I may
 bring[1] it to the next social. It is a black Victoria's Secret bra.

 And will you be bringing it on tour for those of us not in the london
 area?  I'm sure MoMA would be happy to put in a temporary exhibit.  :-)

dha, if you can organise a secluded orange-walled room at the museum,
Leon can simply walk in, toss the bra in the air and leave in his wake
a wonderful contemporary site-specific art exhibit, for which I have
prepared the following description.

Victoria Bra, Secret Tango (2003)
=

L.A.B. Brocard 1976-

This, the third work in Brocard's acclaimed Orange sequence,
explodes the theme of semantic [a]chromatic aspects of visual
perception first explored in his highly successful 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 the bra's current owner.

This work is extremely fragile. Please do not touch.

/-\



http://search.yahoo.com.au - Yahoo! Search
- Looking for more? Try the new Yahoo! Search



Bra

2003-08-14 Thread Andrew Savige
Just wondering if Leon has yet received delivery of the goods he
successfully bid for at the YAPC::Europe auction. I'm eager to see
any photos of said goods (just for my ascii art collection, you see).

/-\



http://search.yahoo.com.au - Yahoo! Search
- Looking for more? Try the new Yahoo! Search



Ponie in haiku

2003-08-03 Thread Andrew Savige
Gallop Ponie bold!
Beer to gulp, Buffy astride
Orange sky surrounds

BTW, has anyone got a nice graphic of a Ponie?

/-\


http://mobile.yahoo.com.au - Yahoo! Mobile
- Check  compose your email via SMS on your Telstra or Vodafone mobile.



Re: Casey West

2002-09-24 Thread Andrew . Savige

En op 22 september 2002 sprak Piers Cawley:
 http://use.perl.org/~cwest/journal/7895

 What did you do to him?

I noticed in Casey's journal that he played a card
game called hearts which Greg won and Fowler lost.
Just curious: do you call this game hearts at london.pm
and is this the most popular london.pm card game?
I love playing this card game, but here in strayer we
call it Rickety Kate or Black Bitch.

/-\ndrew




Erm, there is a golf game in progress on fwp

2002-01-25 Thread Andrew . Savige

If you want to whack some balls over the weekend, see
the thread FORE! Get Even Golf Game Tees Off at:
http:[EMAIL PROTECTED]/

Not as if I would try to stop any London.pm-ers from
getting any work done. :)

/-\ndrew





Re: Buffy riding a Pony

2002-01-18 Thread Andrew . Savige

#!/usr/bin/perl

  ''=~('('.'?'
   .'{'.('['^\+).(
 '['^')').('`'|')').(
'`'   | '.'
   ).((  '['
  )^+ (   '/'
 )).  (   ''
).(  ( '!'
   )^+  '+').(  '`'
   ^((  ')')  ) ).(
  '{'   ^'['   ) .+(
  '[' ^+( '/'
  )).(   ('`'
  )|+   ( '!')).(
 '`'|  ( (  (
 (   '+') .(  ('`')| (  (
 (  (  (((  (
 (  (  ( (( ( ( (( ( (   (
 (  (   '%')     )   )
 )   )))))
 )))) )  )
 ))  )   )   .( ((
 '{'  ))  ^'['
  ).(('[')^   ('/')).(
  '`'|'(').('`'|')') .(('[')^
  '(').('{'^ '['). ( '{'^'+')
  .('`'|'%').((  ('['))^
  ')').('`'|','  )   .(\{^
  '[').('`'^'!' )  . (('[')^
  '(').('`'|'#' ).('`'| (
  ')')).(\`|  \)).(   (
  '{')^\[).(  '`'^'!' )
   .('['^')'). ('['^'/' ).('{'^
   '[').(\[^ \().(  (  ('`'))|
 '%'). ('['^')').( ('`')|   ( (
(  \).( ((   '`'))|  (
   (   ('/'.(   (   ( '[')) ^  (
   ( '.'))).('['   ^ '(')   .  (
   ('`')|',').(((   (
   ( '['^  ((   (
   ( ( '') )   )
   ) )  )   .
   ( (  (   (
   ( (  (  ( (
   ( (  (  ( (
   ( (  ( (  (
   ( (  ( (  (
   ( '.').('{'^'[').((   (
   ('`')))^'.').('`'|'/').','.('{'^'[').('['^')').
   ('`'|'%').('`'|'!').('`'|',').('`'|',').(('[')^   (
   (   ''))).('{'^'[').('`'^')').('{'^'[').('`'|'$').(  (
   (   '`'))|'/').'.'.('!'^'+').('`'^'!').('`'|'.').('`' |



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


   ^
  ((
'[')
 )).( \[^ ',').  ('`'|'%' ).('`'   |')'
   ).(  '['^')')  .''.  ('`' |'$' ).
  ((('`'   ))|+   '%')  .''.  ('['^
 '(').''.  ('['   ^'/'  ).+(  '{'^(
 '[')).+(  '['^   '+')  .''.   ('`'  |
 '/').''.  ('['   ^'('  ).+(\[^
  '/').(   '{'^   '[')  .''.('`'|
   '/'  ).('`'|   '')  .''. (   '!'
 ^'+' ).('[' ^'/').  ('`' |



  ((
((   '('))
  ))).(  ('`')|
  \%).('{'^'[')
   .('['  ^\,).(   '`'|'%').(
'`'|'%').('`' |'+').('{'^'[').(\`|
  \-).(   ('`')|'!').(('`')| '$').('`'|'%'
 ).('{'^'[').(\`|   '-').('`'|'%').('{'^\[).(
 '`'|'').('`'|'%').  ('`'|'%').('`'|',').('{'^'['
  ).('`'|'!').(\`| ',').('`'|',').('{'^'[').(\[^
   ',').('`'|'!' ).('['^')').('`'|'-').('{'^'[').(
'`'|'!').('`'   |'.').('`'|'$').('{'^'[').('`'|'')
 

Buffy riding a Pony

2002-01-05 Thread Andrew . Savige

Visualizing Buffy riding a Pony seems a common and completely
normal thing to do here at London.pm, hence the following program.
The low-rez graphics strain the eyes a little, but I hope they are
good enough to elicit a few chuckles or groans.

Cheers,
/-\ndrew


#!/usr/bin/perl

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



 ^'}';$:='.'^  '~';$~   =\@|
'(';   ($^)=  ')'  ^(( '['  ));
($/)='`'|'.'; ($_)
='('^'}';($,) ='`'
|'!'   ;($\)   =\)^  \};   $:=\.^  '~';$~=  ('@')|  \(;
($^)  =')'^  '[';   ($/) ='`' |'.' ;$_= (
'(')^'}';($,)   ='`' |'!' ;$\=  ')'^(
'}')  ;($:)  ='.'   ^'~' ;$~= '@'|   '(';  (
$^)=   \)^ '[';   ($/) ='`' |'.';$_= (
'(')^'}';($,)   ='`' |'!' ;$\= ')'^
'}';   $:='.'^'~'   ;$~= '@'| '(';  $^=
')'^  \[;  $/='`'|'.'; ($_) ='('  ^+
 '}';$,=\`| '!';  ($\)=   (')')^   '}';$: =
   ((  (
  '.' )
   ))^


   ((  '~')) ;(
  $~)=  '@'|'(';
   $^   =')' ^+
'[';
 ($/)=  ((   '`')) |'.' ;$_=   \(^  \}; ($,)= '`'|'!';$\
  =')' ^'}'   ;$:=   '.'   ^'~';($~)   ='@'|  '(';   $^=  ')'
  ^'[';   ($/)  =(( '`'))|((   '.')   );$_  =(('('
  ))^+'}';  $,= '`'|'!';   ($\)   =')'  ^(('}'
  ));($:)=  '.' ^'~';$~=   '@'|   '(';   $^=  ')'
  ^'[';$/=  '`' |'.';$_=   '('^   '}';