#!/usr/bin/perl
while (<>){
    s/Imperial Senate/Security Council/;
    s/Emperor/White House/;
    s/this battle station/the pentagon/;
    s/regional governors/the generals/;
    s/Old Republic/United Nations/;
    s/local systems/regional competitors/;
    s/TARKIN/WOLFOWITZ;
    s/TAGGE/POWELL;
    print;
}