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