my @chapters = split /\./, $chapter;
pop @chapters;
my $prev_chapter = join '.' @chapters;