Tired are my fingers.
Slap my forehead with my palm.
Must learn to use strict!
[download]

use Soupy;

my $shuffle_your_worries_away = 1;
do( Soupy_Shuffle() ) &&  $shuffle_your_worries_away;

[download]

                                       #
                                       # Tao Te Ching
                                       #
                                       # By Lao Tzu
                                       #
                                       # Translated By Stephen Mitchel
+l
                                       #
                                       # Chapter 79
                                       #
sub Failure {                          # Failure is an opportunity.
print 'Blame';}                        # If you blame someone else,
while (1){print 'Blame';}              # there is no end to the blame.
                                       #
sub Master {                           # Therefore the Master
   my $Obligation++;                   # fulfills her own obligations
   my $Mistakes--;                     # and corrects her own mistakes
+.
   do {my $Needed++} until (my $Done); # She does what she needs to do
   my $Others = 0;}                    # and demands nothing of others
+.
[download]

#!/usr/bin/perl
use strict;

open (BLACKBOARD, "+>blackboard"); #look around
no strict;
use less 'time';
my $hand = 'reluctant'; @chalk = 'obsolete';
sub cheat {print BLACKBOARD "I will not use Perl in C class\n";}
until ($caught) {
    use warnings;
    &cheat;
    $teacher_enters = int(rand(10));
    if ($teacher_enters == 1) {
        no warnings;
        $caught = "red handed";
        close BLACKBOARD;
        delete @chalk[1,2,4];
    } else {redo}
}
die "You are not to use Perl in C class, start the assignment again!";
[download]

Hint

#!/usr/bin/perl
use 5.10.0;use strict;

my ($ice_cream, $cake, @cookies);
verse1( $ice_cream, $cake & $cake );
verse2( $ice_cream & $cake );
verse3( split /,/, "slip,"x3 . "slide" );
verse4();
verse2( $ice_cream and $cake );
map { s/_/ /g; say $_," ice cream n cake" }
    qw( Now_who_dat_is_with_the Party_aint_live_without_the Whatcha_wa
+nt_some All_the_kids_like );
verse2( "$ice_cream and $cake" );
verse3( ("slip,"x3 . "slide") =~ m/(\w*)/g );
verse4();
verse2( $ice_cream && $cake );
verse1( $ice_cream, $cake + $cake );

($ice_cream and @cookies) xor eat($ice_cream, @cookies);

sub verse1 {
    for ( 1 .. 4 ) {
        say $_[0] and $_[1];  
    }
}

sub verse2 {
    for ( 1 .. 4 ) {
        say $_[0];
        do{ $_[0] };  
    }
}

sub verse3 {
    say time, join(', ', @_);
    say join(', ', @_[0..2]) and $_[3] for (1 .. 2);
    $SIG{STOP} = sub { sleep 1; TAG_TEAM: }
}

sub verse4 {
    my $boy;
    $SIG{ALRM} = sub { say "slip n slide" };
    ride( $boy ), kill (ALRM, $$) for (1 .. 3);
    sleep 1; map { $_++ } ($ice_cream, $cake);
}

sub ride { say "Whee!" };

sub eat {
    say "YUM!";
}

__END__
[download]

if ( $at[0] !~ /succeed/ ) {
    try();
    try();
}
[download]

# The Beatles, again

sleep $pretty_darling  ;
do { not $cry and $i } ;
WILL_SING: $a_lullaby  ;
[download]

#!/usr/bin/perl -w
use strict;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';

my $Excel = Win32::OLE->new('Excel.Application', 'Quit'); 
my $sheet = $Excel->Workbooks->Open($ARGV[0])->Sheets->item("words"); 
+  # note to myself: add error handling here!

my @words;
foreach my $col('A'..'F')
{
   my $row=1; my @list = (); my @value = ();
   do { @value= $sheet->Range("$col".$row++)->{'Value'}; 
        if (defined ($value[0])) { push (@list, $value[0]); } 
   } while(defined ($value[0]));
   push (@words, \@list);
 }
my $rhyme = int(rand( scalar(@{$words[4]}) ));

my $poem = $words[0][int(rand( scalar(@{$words[0]})))]." are ".$words[
+1][int(rand( scalar(@{$words[1]})))]." ".$words[2][int(rand( scalar(@
+{$words[2]})))]."?\n".
           "They're ".$words[2][int(rand( scalar(@{$words[2]})))]." an
+d ".$words[2][int(rand( scalar(@{$words[2]})))]." ".$words[4][$rhyme]
+.".\n".
           "And ".$words[2][int(rand( scalar(@{$words[2]})))]." and ".
+$words[2][int(rand( scalar(@{$words[2]})))]." and ".$words[2][int(ran
+d( scalar(@{$words[2]})))].",\n".
           "Cause ".$words[2][int(rand( scalar(@{$words[2]})))]." ".$w
+ords[3][int(rand( scalar(@{$words[3]})))]." ".$words[5][$rhyme]."!\n"
+;

print ("$poem\n");
$Excel->Speech->speak($poem);   # let us hear it!
exit 0;

#Provide the name of an Excel-file as parameter!
#Excel content (in a sheet called "words"):
#
#  A           B         C        D           E           F
#Why    the PerlMonks coding   perl wisdom  in vain    is pain
#Where  the people    hacking  c-sharp      like none  is fun
#How    the fanboys   smiling  unix         so fine    takes time
#       great coders  thinking posix        
#       small thinkerslearning shell scripts        
#       code monkeys  asking   java        
#                     writing            
#                     pasting            
#                     ...            

[download]

Young neighbor learns Perl.
Wonders if it is worth it.
Patience; "You will see."
[download]

People are Eager to Rescue the Learners