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