$ perl -e 'system q !sort -k 2 -t "|" -o file file!'