St.Valentin's day... Beside Chrismas, the best time of the year to be all cute and cheesy. So I guess it's the perfect time to unleash this "white perl" (as in, the inverse of the infamous black perl poem) of mine. It's not complex or incredibly witty, but I find it amusing. :) Joy, Yanick #!/usr/bin/perl # satori.pl v1.0 (31/7/2000) A Perl poem $\ = "\n"; *LIGHT=*STDOUT; %accept = %salvation = ( hate => 'love' , greed => 'frugality' , anger => 'acceptance', fear => 'certainity', despair => 'hope' ); $now = # is the time ' '; $no_more = '1ies'; # I want to be $free = not $chained; sleep $no_more; time, 2, $awake; kill $doubt; reverse $thinking; my @soul = keys %salvation; foreach $fear ( @soul ) { print "I knew $fear"; push @out and push @away until $free; print "$now I know$I_must $accept{ $fear }"; } study $life; tell TRUTH ;# do not lie to yourself accept GOOD, BAD; delete $soul{ sin }; not $let_go or exit or die; # Turn my back to death and the crypt's hollow comfort', 'it is too soon'; select LIGHT; close PAST; open EYES, 'and see'; bless $life={}; seek HAPPINESS, abs$olution, $peace; untie $myself; join 'back', 'humanity'; print; print 'I am alive, I am free. Hear me roar, for I am ',` whoami`; # This is where things END{} # This is where things BEGIN{ # It is time to return $home; } ==== Want to unsubscribe from Fun With Perl? Well, if you insist... ==== Send email to <fwp-request@technofile.org> with message _body_ ==== unsubscribe