#!/usr/bin/env perl

use strict;
use warnings;
use autodie;
use constant {
    CHANGE_LINE => 4,
    SOURCE_LINE => 6,
    PAGE_SEP => "\n\fH\n",
};

use File::Copy 'copy';

my $work_file = 'working.txt';
my $bu_file = 'working.txt.bu';

copy($work_file, $bu_file)
    or die "Can't 'copy($work_file, $bu_file)': $!";

{
    open my $in_fh, '<', $bu_file;
    open my $out_fh, '>', $work_file;

    local $/ = PAGE_SEP;

    while (<$in_fh>) {
        chomp;
        my @lines = split /\n/;
        my ($change_line, $source_line)
            = (CHANGE_LINE, SOURCE_LINE);
        ++$change_line, ++$source_line if $. == 1;
        my ($replace) = $lines[$source_line] =~ /(\S+)$/;
        $lines[$change_line] =~ s/\S+$/$replace/;
        print $out_fh join("\n", @lines),
                      (eof($in_fh) ? "\n" : PAGE_SEP);
    }
}