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