#!/usr/bin/perl

open FILE, "bible13.txt";
my @bible;

my %books;
while(<FILE> )
{
    if(/Book (\w{2}) *(.*) *Book (\w{2}) *(.*) *Book (\w{2}) *(.*)/g)
    {
        $books{$1} = $2;
        $books{$3} = $4;
        $books{$5} = $6;
        if($5 == 66) { last; }
    }
}
foreach(keys %books)
{
    $books{$_} =~ s/ {2,}$//g;
}

while(<FILE> )
{
    if(/^(\d{2}):[\d{3}):[\d{3}) (.*)/)
    {
        chomp(my $str = "$books{$1} $2:$3 -- $4");
        $str =~ s/0*(\d*)/$1/g;
        while(<FILE> )
        {
            if(/^\d{2}:\d{3}:\d{3} .*/) { last; }

            /^ *(.*)/;
            chomp($str .= $1);
        }
        $str =~ s/\r/ /g;
        $str =~ s/ {2,}$//g;
        $str .= "\n";
        push @bible, $str;
        redo;
    }
}

$bible[-1] =~ s/(.*Amen\.).*/$1/g;

open FILE, ">bible.txt";
print FILE @bible;
close FILE;