#!perl -p
s;(.*) (.*) (.*)\1|.* ;$3$2