#!/usr/bin/perl -wp
# Books of Pumpkins, etc.  Extensions to Quacks of Quedlinburg
#  SPDX-License-Identifier: GPL-3.0-or-later OR CC-BY-SA-4.0
# Copyright 2020-2021 Ian Jackson

use strict;
our $ttitle;
our $utitle;
BEGIN {
  my $md = shift @ARGV // die;
  open M, '<', $md or die "$md: $!";
  $ttitle = <M>;
  chomp $ttitle;
  $ttitle =~ s{^\%\s+}{} or die;
  $utitle = "$ttitle - Quacks Books of Pumpkins";
}
s{Fm4YNbKyBNiS7TNu}{
  my $r = $utitle;
  $utitle = uc $ttitle;
  $r =~ s{\&}{&amp;};
  $r =~ s{\<}{&lt;};
  $r =~ s{\>}{&gt;};
  $r
}ge;