The sole reason for my dabbling here is the length of names of the outgoing and incoming teams. I'm sure the sages will see right through my lame masking of characters, but hopefully there are at least a couple surprises.

use strict;
use warnings;
use constant ist => q{3}x2;
my @eye = "7966668565836672654747677772736968787889" =~ m|(..)|g;
${_}||=                       # Back to
our $whitehouse='BUSH/CHENEY' # Texas &
.$/||\1;                      # Wyoming
foreach my $W ( map { s|(\d+)|chr($1)|eg; $_ }
                map { "\LS!".
                      join( chr(ist), pop(@eye), pop(@eye), $!)
                    }
                (2001..2009)=>undef){
$!=~eval $W}
die((!$!)?uc:$::)
[download]

Update: With whitespace and comments: