This should work for you:

%dict=('This' => 'Other', 'Some' => 'Corny');
while (<>) {
    ($left, $right) = split(/=/);
    die unless defined($dict{$left});
    print $dict{$left} . "=" . $right . "\n"
}
[download]