my %translator = (
    '-XYZ.CO'   => '(C)',
# etc
);
while (<IN>) {
    chomp;
    print OUT join( ' ', map {
                  $_->[0],
                  $_->[1],
                  $translator{ $_->[3] },
                  $_->[2];
              } [split ' ', $_]),
              $/;
}