#!/usr/bin/perl -wp
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;