#perl of_wisdom
open(Matthew6,$0); {print <Matthew6>;}
our %father; $who = "in heaven";
bless \$thy[name];
for ($earth .. $heaven) {
$thy[kingdom] + $come;
$thy[will] = $done;
}
sub mit { our $bread = localtime(today);
foreach $sin (@us) {
undef my $sin
if my $forgive;
return if $temptation or $evil; }}
for ( $thine = $kingdom and $power and $glory) {
for ($ever and $ever) {}; }
4 comments:
Good to know I'm not the only crazy one. Found this on the 'Net. http://www.dbforums.com/archive/index.php/t-849288.html
#!/usr/bin/perl
PRAYER:
my $Lord = my $shepherd;
my $wants = {};
for ( ever,
let, me ) { sleep in,
green, pastures
and send me, beside,
still, waters
and my $soul = restored; }
send me,
in, righteousness;
for ( your, names, sake ) {
do stay if I;
seek ( death and shadow
and I, shall,
fear ); not evil;
for ( $you = with, me, your )
{ rod and $staff = my $comfort }
Goodness and mercy;
shall follow me
until all, days
and I; do last }
for (ever and ever,
in, Gods ) { house }
# Psalm 23
# A perl prayer
# Ingvar Hagelund 2003
This is even better:
char*lie;
double time, me= !0XFACE,
not; int rested, get, out;
main(ly, die) char ly, **die ;{
signed char lotte,
dear; (char)lotte--;
for(get= !me;; not){
1 - out & out ;lie;{
char lotte, my= dear,
**let= !!me *!not+ ++die;
(char*)(lie=
"The gloves are OFF this time, I detest you, snot\n\0sed GEEK!");
do {not= *lie++ & 0xF00L* !me;
#define love (char*)lie -
love 1s *!(not= atoi(let
[get -me?
(char)lotte-
(char)lotte: my- *love -
'I' - *love - 'U' -
'I' - (long) - 4 - 'U' ])- !!
(time =out= 'a'));} while( my - dear
&& 'I'-1l -get- 'a'); break;}}
(char)*lie++;
(char)*lie++, (char)*lie++; hell:0, (char)*lie;
get *out* (short)ly -0-'R'- get- 'a'^rested;
do {auto*eroticism,
that; puts(*( out
- 'c'
-('P'-'S') +die+ -2 ));}while(!"you're at it");
for (*((char*)&lotte)^=
(char)lotte; (love ly) [(char)++lotte+
!!0xBABE];){ if ('I' -lie[ 2 +(char)lotte]){ 'I'-1l ***die; }
else{ if ('I' * get *out* ('I'-1l **die[ 2 ])) *((char*)&lotte) -=
'4' - ('I'-1l); not; for(get=!
get; !out; (char)*lie & 0xD0- !not) return!!
(char)lotte;}
(char)lotte;
do{ not* putchar(lie [out
*!not* !!me +(char)lotte]);
not; for(;!'a';);}while(
love (char*)lie);{
register this; switch( (char)lie
[(char)lotte] -1s *!out) {
char*les, get= 0xFF, my; case' ':
*((char*)&lotte) += 15; !not +(char)*lie*'s';
this +1s+ not; default: 0xF +(char*)lie;}}}
get - !out;
if (not--)
goto hell;
exit( (char)lotte);}
And the most lyric:
#!/usr/bin/perl
APPEAL:
listen (please, please);
open yourself, wide;
join (you, me),
connect (us,together),
tell me.
do something if distressed;
@dawn, dance;
@evening, sing;
read (books,$poems,stories) until peaceful;
study if able;
write me if-you-please;
sort your feelings, reset goals, seek (friends, family, anyone);
do*not*die (like this)
if sin abounds;
keys (hidden), open (locks, doors), tell secrets;
do not, I-beg-you, close them, yet.
accept (yourself, changes),
bind (grief, despair);
require truth, goodness if-you-will, each moment;
select (always), length(of-days)
# listen (a perl poem)
# Sharon Hopkins
# rev. June 19, 1995
#!/usr/bin/perl
open Matthew6, $0 ; print <Matthew6>;
our $Father, who, art-in-heaven;
hallowed: be.Thy.name;
thy: kingdom-come;
thy: will-be-done;
on-earth, as-it-is-in-heaven;
give: us, today, our $daily-bread
and forgive us our $tresspasses,
as we forgive forgive those who trespass against us
and lead us not into temptation,
but deliver us from evil. Amen
Post a Comment