$!=!get;say map({$!+=$^a-$^b},words).max*2-$!