use strict;
use warnings;
use Perlmonks qw/poll/;
open(my $from, "<", previous_node('latest poll')) or die "Couldn't find previous_node\n;
local $/;
my $prev = <$from>;
close($from)
s/monarchy/Fortran/gi;
s/democracy/Perl/gi;
print $prev;