#!/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
    }

};