// Internet Duct Tape

I’ve seen a few posts going around the net about geek Valentine’s Day ideas. If you really want to geek out why not go back a few years and use some Perl poetry?

Reprinted without permission.

# open HEART by Eric Windisch, Feb 15, 1999

   open (HEART, ">for_me");
   for ($this-valentines-day; $you and $me; $together++) {
     $you = "My special one";
     $me = "Your darling";
   }

   %time = ($you => $me, $together => "forever");
   while ($you = push(@me, @away)) {
     foreach (@second) {
       die a_bit to my $death;
       goto hell;
     }

     pack $my_bags, @and_leave;
     package my_love;
     unless(!$i_see_you) {
       write YOU_SOON;
     }
   }

   reverse keys %time;
   bless me;
   for (last; kill $me;) {
     if ($you) {
       die;
     }
   }

# rush by Sharon Hopkins, June 26, 1991

    'love was'

      && 'love will be' if
	(I, ever-faithful),
	  do wait, patiently;

    "negative", "worldly", values disappear,

      @last, 'love triumphs';

    join (hands, checkbooks),
      pop champagne-corks,

	"live happily-ever-after".

	  "not so" ?
	    tell me: "I listen",

	      (do-not-hear);

    push (rush, hurry) && die lonely if not-careful;

    "I will wait."

      &wait

# Perl Haiku by Mike Badger

    my $Life;			#Defineing my life
    $Life=$me || $you		#A Union of Me and you
      if ($ourLove);		#if our love is true.

# Perl Haiku by Bob Meyers

    use strict; my @love;
    my $wounds = open(FLAME, "of_passion");
    foreach (<FLAME>) {
      push @love "fully";
    }

More Perl Poetry Links

• Code Poetry at runme.org
• Perl Poetry Contest #1
• Perl Poetry at PerlMonks
• Camels and Needles - Computer Poetry Meets the Perl Programming Language (translation of PostScript)
• The History of Perl Poetry
• Magnetic Poetry for Perl (software app)

Related Posts

• 76 Romantic Movies for Guys and Girls
• The Secret to Finding the Perfect Valentine’s Day Gift for the Person You Love
• Ode On a Silicon Yearn
• Geek Valentine’s Day Links