#!perl -lap $_=y/ /+/*(sort@F)[2]