use Shakespeare::Hamlet

$question = qr/ ( b | [^b] ) {2} /;
switch( $mind =~ /nobler/ ) {
____case 0:
________foreach ($fortune->{OUTRAGEOUS}{SLINGS}) {
____________suffer($_); }
________foreach ($fortune->{OUTRAGEOUS}{ARROWS}) {
____________suffer($_); }
____case 1:
________if( split( $arms, $troubles->{C} ) ) {
____________undef( $troubles->{C} ); }
}

my $die = sub {
____undef $sleep;
____die(); }
my $sleep = sub {
____heart_ach->DESTROY {};
____shocks->DESTROY {};

____return rand();
}
________

__begin__

package heart_ache;
____sub new {}
____sub DESTROY {}

package shocks;
____my $natural;
____sub new {
________for( my $i = 0; $i < 1000; $i++ ) {
____________push( @{$natural}, $i ); } }
____sub DESTROY {}
________
package flesh;
____@ISA = qw( heart_ache shocks );
____sub new {}

__end__

if( eof() ) {
____if( rand() <>new(); } }

my $dream____
my $death = &$die();
my $perchance = &$sleep();
if( $perchance >= 0.50 ) { $dream = 1; }
else { $dream = 0; }

my $coil = ( MORTAL => flesh->new() );

$rub = grep { $death && shift( @{$coil} ) } $dream;
if($rub) { CORE::sleep(5); }

sub respect {
________$calamity = Life->long(); }
________
package life;
____sub long {
________bear_time();
________opressors();
________man();
________love();
________law();
________office();
________merit();
________return 1;
____}
____sub short {
________$bodkin = {};
________$quietus = $bodkin; }
____
____
____sub bear_time {
________foreach ($time->{SCORNS}) {
____________print "$_\n"; }
________foreach ($time->{WHIPS}) {
____________print "$_\n"; } }
________
____#sub oppressors { cout << "Hello World!"; }
____sub man { man(); }
____sub love {
________if(int(rand(2))) { return 0; }
________else { return 1; } }
____sub law {
________while( rand() < 0.90 ) {
____________CORE::sleep(2000); } }
____sub office {
________@args = ("shc","-f hamlet.pl";
________system(@args) == 0 or die(); }
____sub merit {
________while( 1 ) { sleep(2); } }

__end__

if( !($life =~ /death$/) ) {
____respect(); }
else( !($life =~ /death$/) ) {
____respect(); }
else { Life->short(); }
____
sub conscience {
____foreach $person ( @all ) {
________$person = $coward; }
____return $true; }
________
eval { concience(); }
if( !@_ ) {
____pack $thought, $resolution->{HUE};
____delete( $action->{NAME} ); }