obfuscated
boo_radley
inspired by [If God wrote a Perl script].
<code>
#!/usr/bin/perl
# verse taken from
# http://bible.gospelcom.net/
study $bible;
do {print everything()} until judgement_day();
sub everything {
$proverb="All the words of my mouth are just; none of them is crooked or perverse";
split /;/, $proverb;
map {@saying=split //, reverse $_; scalar @proverb? (push @proverb, @saying[7],@saying[25]):(push @proverb, (@saying[3], @saying[7])); }@_;
@proverb;
}
sub judgement_day {
@God = ("Alpha" & "Omega", "First"&"Last","Beginning"&"End");
if (push @God, "too","far"){ # Rev 1-5 ;) {
foreach $seal ($seals[1..7]) {$seal="broken"; }; # Rev 6-8
foreach $angel ($angels[1..7]) {$trumpet="sounded"}; # Rev 8-9
foreach $thunder ($thunders[1..7]) {undef}; # Rev 10
shift @firmament; # Rev 11
$beast{heads}=7;
$beast{horns}=10;
$beast{horns}{crowns}=10;
$beast{likeness} = "leopard" or "bear" or "lion";
$beast{powers}="many";
if ($man{opposes}==%beast) { die};
$man{mark}{location}="hand" or "head";
$man{mark}{number} = $beast{number};# Rev 13
$angel[1] = "sermonize" foreach (@tribe, @nation, @language, @people) ;
$angel[2] = eval{$babylon = undef};
if ($man{mark}{number} eq $beast{number}) {
$wine="God's wrathful vineyard, est 0.";
$man{torment}="eternal";
} #Rev 14
foreach $angel ($angels[1..7]) {
$bowl{contents} = $wrath && dump $bowl{contents};
$bowl{plague}= "unleashed"
} #Rev 16 - 18
if (undef($babylon)) {
$torture = $luxury;
$adulters eq "weeping";
$merchants eq "weeping";
$cargo eq "unsold";
$saints eq "rejoicing";
$heaven eq "rejoicing";
} # Rev 18
$devil{location} eq $beast{location} or $false_prophet{location}; # Rev 21
@God = ("Alpha" & "Omega", "First"&"Last","Beginning"&"End");# Rev 22
}
};
</code>