@echo off perl -MInteger -e "s/x/*/g for @ARGV;print qq(Total = ), eval join(qq(+),@ARGV), qq(\n)" %*