#!/usr/bin/perl -w
#myHeart, A Poem by TheEliteNoob

$i = "u";
$u = "i";
$love = "u+i";
my $heart = "$u make my heart flutters...";
if($i ne "Not with $u"){
    $heart = "Just Breaks";
}
$me = "just thinks of $u";
while($me eq $u){
    $sad = "when not with $u";
    $happy = "with $u my love";
    last; #forever
}
while($me && $u eq $love){
    $me = "$happy and not $sad";
    last; #forever
}
$myLove = "$u love $i";
print "\n$myLove\n";
[download]

#!/usr/bin/perl #Friar Away!
my ($jungle, $retreat); 'wont be a long stay';
if (my $hunch eq 'one hundred percent') {
print time . " in the $jungle very well spent" }

my @new = ('walkie talkies', 'mosquito nets',
'cliff bars', 'cash on hand' and 'passport ID');
'Will prove useful from day well into night' .
'so Nicaragua will be a delight.';

'Algorithm I seek not for the meek.';
'One that surely will take more than a week.';
while (my $PerlFu) { sprintf 'orward this past year' }

my $firstBigProject; 'has yet to get here';
unless ('I find there what I am to make') { 
return "$jungle $retreat for Heaven'$sake!" }
[download]

#!/opt/bin/perl

use Switch;
use 5.010;

my %is_ready = ('teacher' => "student",  'student' => "teacher");


for(%is_ready){
    
    given($_) {
    
        when(/student/) { appear($is_ready{$_}); }
    
        when(/teacher/) { appear($is_ready{$_}); }
    
    }
    
}


sub appear{
  $appear = shift;
  print "$appear is ready, ". $is_ready{$appear} ."\n";
}


[download]

#!/usr/bin/perl

use 5.010;

#Ascend to Coltrane
my $sight; 'wills to be higher';
'how?'; say 'Modern Perl!';
[download]

Ken was a memory driving man,
Watson, just some silicon in a can,
but a mighty match they posed to be,
as they battled openly on national tv

the first match was close, as they say,
but it was just programming us into a second day
cause when the score was totalled after the money doubled,
Ken, and the other whiz kid,  clearly were troubled

now I'm an honest man, and don't really care who wins,
but I know history , and the way this thing spins
if you want make money with Watson, and earn our respect
give it a cheerleader's body, and teach it to have sex
[download]

Two dykes work in an office down the hall. One is thin and the other is tall.

My name is Dick. To which they elict,

"We code with perl and it is great. That is how WE have a ball!"

#!/usr/bin/perl

use 5.010;
use strict;
use warnings;


my $storm = [

    "Every want without a pleasure.\n",
    "Cries to each beyond unheard.\n",
    "Softly spun, bound in isolation\n",
    "and placed in the abundant caress\n",
    "of an infinite stillness.",

];
    
my @stillness = (
        
    $storm->[0], 
    $storm->[1], 
    $storm->[2], 
    $storm->[3], 
    $storm->[4]

);

say @stillness[0..4];
[download]

DNA strands
evolving eternally
now comprehend Perl
[download]

the peacock is dead
thrust into prostitution
wash my brain baby
[download]