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