@world = ('stage') x @world;
@people = ('player') x @people;
[download]

$question = '2b' || !'2b';
$nobler = (
  suffer('slings', 'arrows')
  <=>
  oppose($sea{troubles})
);
$nobler == oppose($sea{troubles})
  and die, sleep;
no more;
[download]

melt($flesh)->isa('dew')
or
!fixt($canon{Everlasting}{'self-slaughter'} == 0);
[download]

$nobler = (
    suffer('slings', 'arrows')
    <=>
    oppose($sea{troubles})
  );
[download]

Surely you need

rand($outrageous)
[download]

in there somewhere :-) ?
--
Brovnik

use strict;
use Mob;
use Speaker;
use Speach::Persuasion qw(demagoguery bribery);


my $me  = new Speaker("Antony");
my $you = new Mob;

$me->setListeners($you)
$me->invoke("Friends, Romans, Countrymen!");

$you->ears()->lend($me);

$me->statePurpose('bury Caesar' => 1,
                  'praise him'  => 0
                  );
[download]

If God had meant us to fly, he would *never* have give us the railroads.
    --Michael Flanders

$object = $self->see_before();
if ($object->is_dagger() and $self->is_clutchable($dagger)) {
  $dagger = $object;
  if ($dagger->clutch()) {
    # Must've forgotten our lines
    exit;
  } else {
    # $dagger is a halluciation, likely
    # due to the recent overclocking...
    kill(9, $Duncan);
  }
}

__EXIT__ # stage left
[download]

-><- -><- -><- -><- -><-
All things are Perfect
    To every last Flaw
    And bound in accord
         With Eris's Law
            HBT; The Book of Advice, 1:7

Aaron: I will be bright, and shine in Perl (and gold),
[download]

--

#!/usr/bin/perl -wT
use strict;

@needs = (25, 10, 5);
foreach $count(@needs)
  {
   $reason = !evalneed($count);
  }
evalneed(1);

return 0;
[download]

@horse;
my $kingdom; for (@horse) {};
[download]

Philosophy can be made out of anything. Or less -- Jerry A. Fodor

You can make that flow smooother :)

@horse, @horse, my $kingdom for @horse;
[download]

cLive ;-)

#!/usr/bin/perl
use strict;

if (/thunder/ || /lightning/ || /rain/) {
  join '', 'First Witch', 'Second Witch', 'Third Witch';
}
unless (-e 'hurlyburly') {
  unless ('battle' == 'lost' && 'won') {
    exit('sun');
  }
}
grep /the place/, 'the heath';

join '', 'Macbeth';

warn('Graymalkin');

caller('Paddock') =~ /anon/;

('fair' == 'foul') && ('foul' == 'fair');

join 'hover', split //, 'fog and filthy air';
[download]

First scene from Macbeth... warns, but hey, it is strict :)

cLive ;-)

my %hands = (spot => 'damned');
out_out(%hands) while $hands{spot} eq 'damned';

sub out_out {
    my %hands = shift;
    print "Out, damned spot! out, I say!\n";
    delete $hands{spot};
}
[download]

Jeff

R-R-R--R-R-R--R-R-R--R-R-R--R-R-R--
L-L--L-L--L-L--L-L--L-L--L-L--L-L--

sub juliette {
romeo();
romeo();
for $thou (@are) { /romeo/; }
}
[download]

Not from the quill of the bard, but always one of my favourite lines:

$all->rule($one_ring);
$one_ring =~ m/$them/;
$one_ring->bring($all)
$darkness[$in]->bind($them);
[download]

$japh->{'Caillte'} = $me;

love($Caesar) < love($Rome);
[download]

Or alternatively

$rose{smell} = $rose{name} eq "rose" ? "sweet" : "as sweet";
[download]

Update: string comparison... oops


---

If God had meant us to fly, he would *never* have give us the railroads.
    --Michael Flanders

Educational interlude ... let's do it with typeglobs!

#!/usr/bin/perl

$rose = "smells sweet to degree n";
*other_name = *rose;
print "$other_name\n";
[download]

I actually doubted on that one... I considered this as well...

$Rose = name($Rose) ? $Rose : Smell($Sweet);

Since it would match "that which we call a rose By any other name would smell as sweet" better...

Greetz
Beatnik
... Quidquid perl dictum sit, altum viditur.

my $lord; you->pass(!here);

if(my $way{"ROME"} =~ /Barr'st/i) {
    yell("What, villain boy!\n");
    stab($mutius)until$mutius->living==0;
} else {
    die; # WHAT?! That's not in the script!
}
[download]

--
Me spell chucker work grate. Need grandma chicken.

if (@ocean{$neptune}) {
    wash_blood (my $hand);
} else {
    foreach $sea (@ocean) {
        incarnadine($sea);
    }
    $green_one = "red";
}
[download]

nah,

/([to be]|[^2B])?/
[download]

cLive ;-)