say sum($/=|words)+$0*+^$1