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